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Editorial 



LA TRANSICION QUE NOS 

VIENE 



Llegan las entranables fechas de la Navidad, 
que para el sector informatico representan una 
reactivation de las ventas, sea de hardware o, 
con mayor intensidad, del software de diverti- 
mento. Nos encontramos en momcntos de tran- 
sition del mercado. El 87 sera el momento de 
expansion del segmento PC y compatribles. La 
principal razon obedece a la brusca bajada de 
precios y la incorporation de nuevos fabricantes 
de compatibles. Tal es el caso de Amstrad, que 
con su esperado PC 1512 lograra disparar la de- 
manda por parte de los usuarios domesticos. 
Baja el liston para acceder a sistemas que hasta 



hace pocos meses estaban considerados como 
coto de los profesionales y empresas. 

En el otro extremo se situa el ordenador ne- 
tamente destinado a juegos. Los nuevos precios 
mas bajos,comoen el caso del propio Spectrum 
+2 y los MSX, conseguiran que esta clase de 
sistemas scan ampliamente adoptados en los ho- 
gares como un artfculo de consumo mas. 

Grandes esperanzas se han puesto en el pro- 
mete dor 1987. 

Por nuestro lado os deseamos Feliz Navidad a 
todos los que compartis estas paginas mes a mes 
con nosotros. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones sera publicado en cada numero 
ponga en claro, mes a mes, cuales son los programas preferidos de INPUT, 



de nuestros lectores. Para ello, es obligado preguntaros directamen- 
te y tener asf el mejor termometro para conocer vuestras preferen- 
cias. Podeis votar por cualquier programa aunque no haya sido co- 
mentado todavia en INPUT. 



Entre los votantes sortearemos 1 cintas de los titulos que pidais 
en vuestras cupones. 

Nota: No es preciso que corteis la revista, una copia hecha a 
maquina o una simple fotocopia sirven. 



Enviad vuestras votos a: LOS MEJORES DE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 
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LA B ATALL A 
DE LOS MAGOS 

La epoca de Archon esta tocando a su fin. Imponentes guerras de colera magica y 
monstruos recorriendo los elementos nambrieritos de poder y de presas. El juicio 

del apocalipsis ensombrece todo. 



ARCHON Ii: 




ELECTRONIC ARTS- 



FREE FALL 
ASSOCIATES 




Commodore 64 



A 



T 



EL TABLERO 



P.V.P.: 2 5 OO pts. 



EN CASTELLANO 




EL CAMPO DE BATALLA 



En medio de los turbulentos elementos un Adepto del 
Orden conjura a una Gorgona para mandarla en contra de 
una sirena enemiga. Ese es un punto magico por el cual ellos 
combatiran. Por lo menos, a veces lo es. Y el Orden necesita 
mas energia, Desesperadamente. No sera facil, a las sirenas 
les gusta el agua por eso el Caos la puso alii. 



El tablero se convierte en la arena y la estrategia se 
convierte en acci6n. La cancion mortal de la sirena 
comienia instantaneamente a mermar la fuerza vital de su 
adversario. La Gorgona necesitara toda su increible 
velocidad y capacidad a com distancia. No hay cosa tal 
como un combate largo con una Sirena. 




DRO SOFT 



La Unica Mezcla de Estrategia y Acd6n de Arcade de ARCHON. 
Diferentes Campos de Battalia: Tierra, Agua, Aire y Fuego. 
12 Monstruos Conjurables Diferentes. 
4 Hechiceros Adeptos en Cada Bando. 
16 2 Jugadores con un Computo-j ugador. 

Adaptacion al castellano: Los Obreros Especializados del AVLADOR DRO. 
Editado por DRO SOFT. Fundadores, 3 - 28028 Madrid. Telf. 255 45 00/09 




Electronic ar rs 



program***? 



EL SID, PROCESADOR DE SENALES 
ANALOGICAS 



EI articulo pretende dar una vision 
de procesamiento de senales analogical 
a traves del SID. Para ello se describe 
el funcionamiento del filtro programa- 
ble, asi como el manejo de senales ex- 
ternas. Asimismo, se incluyen una se- 
rie de programas de demostracion y de 
ideas destinados al lector. 



MUSICA 
POR DATASSETTE 



La utilization del Datassette no se 
restringe unicamente a la carga y sal- 
vaguarda de programas y datos. An 
tes de comprar el Datassette seguro 
que mas de uno habra preguntado al 
vendedor si el cassette servia para re- 
producer musica. Naturalmente la res- 
puesta fue negativa. Sin embargo, a 
partir de ahora, podras escuchar cin- 
tas de audio a traves del ordenador. 
La calidad del sonido reproducido no 
es buena, ya que la transmision de da- 
tos del cassette al ordenador es seria- 
da, es deck, bit a bit. Esto solo per- 
mite manejar dos niveles, serial o no 
serial, con lo que el sonido reproduci- 
do queda excesivamente «cuadricula- 
do». Si se dispusiera de una entrada 
en paralelo, como la del port del usua- 
rio, la calidad mejoraria notablemen- 
te. El program a que sigue escrito en 
ensamblador, permite escuchar una 
grabacion de audio. 



1 Teclea 


para Commodore-64 


cooo 


LDA 


SDCDD 


C003 


CMP 


#$10 


C005 


BEQ 


$cooc 


C007 


LDA 


#$00 


C009 


J MP 


$C00E 


COOC 


LDA 


#$0F 


COOE 


STA 


$D418 


con 


JMP 


$cooo 



Para los que no dispongan de en- 



samblador, pueden utilizar la siguien- 
te version BASIC: 

P ara Commodore-64 

10 FOR 1=49152 TO 49171 : 
READ A:P0KE I, A: NEXT 

20 DATA 173,13,220,201,16, 
240,5,169,0,76,14,192, 
169,15,141,24,212,76,0, 
192 

El programa se pone en marcha me- 
dian te SYS 49152. Una vez lanzado 
basta con poner un cinta de musica en 
el Datassette y apretar la tecla PLAY 
del mismo. 

El programa funriona del siguiente 
modo: En el acumulador se carga el 
valor procedente del Datassette, que el 
sistema almacena en la posicion de 
memoria 56333. Este valor, proceden- 
te de la digitalizacion de la serial ana- 
logica de la cinta, unicamente puede 
ser 6 16, segun se haya leido senal 
suficicnte o no. A continuacion se 
compara con el valor 16 lo leido en di- 
cha posicion. Si la comparacion ha re- 
sultado positiva, se pone el volumen 
al maximo, pero si ha sido negativa se 
anula. Estas variaciones del volumen 
son audibles e intentan seguir las se- 
nales del cassette. El proceso se repite 
cfclicamente hasta pulsar 
RUN/STOP y RESTORE , unica 
forma de detener el programa. 

Quiza los resultados no sean del 
todo satisfactorios. No obstante, exis- 
te una interesante aplicacion practica 
a la que podemos destinar el progra- 
ma: la localizaeion rapida de otros 
programas. Efectivamente, es posible 
escuchar tambien grabaciones digita- 
les de programas para encontrar rapi- 
damente la cabecera de los mismos o 
reconocer el formato en que han sido 
grabados. El programa, ubicado en 
una zona alta de la memoria, no se ve 
afectado por la mayoria de programas 



BASIC, con lo que puede reutilizarse 
una y otra vez. 



LA ENTRADA DE AUDIO 
EXTERIOR 



La calidad del sonido puede mejo- 
rarse sustancialmente si hacemos uso 
de la entrada de audio exterior. El 
Commodore 64 permite la entrada a su 
chip de sonido de una senal analogica 
de forma directa. Esta senal es repro- 
ducida, junto con las tres voces de so- 
nido. por el ordenador y puede escu- 
charse de forma m'tida en el receptor 
de television o monitor. La utilizacion 
de una entrada analogica supone que 
la senal sera tratada como tal sin su- 
Mr deform aciones apreciables en su 
paso por el SID. Ademas, esta senal 
exterior es totalmente indepcndiente 
del sonido generado por el propio or- 
denador y pueden, por tanto, simulta- 
nearse. 

Es posible, tambien, modificar la 
senal exterior, como mas adelante ve- 
remos. 

Para conectar la senal exterior al or- 
denador basta con tender dos cables 
desde la fuente de sonido hasta las pa- 
tillas 5 y 2 del conector de AU- 
DIO/VIDEO. La unica precaucion 
que hay que tener es que la serial no 
supere los 3 v. de amplitud. Por tan- 
to, pueden utilizarse como fuentes las 
salidas de senal de una platina o sin- 
tonizador hacia el amplificador, la sa- 
lida para auriculares de cualquier apa- 
rato de musica y, en general, cualquier 
senal que no sobrepase los limites 
mencionados. De lo contrario podna 
danarse el ordenador. 

Tal y'como se ha dicho, la entrada 
exterior es independiente de lo que el 
ordenador este generando. En cual- 
quier momento podemos oir lo que 
llega por esta entrada sin mas que ac- 
tivar el volumen con POKE 54296,15. 
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Prograrnodon 
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MUSICA POR DATASSETTE 
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ENTRADA DE AUDIO EXTERIOR 


■ 


EL F1LTRO PROGRAMABLE 


DEL SID 


■ 


CREANDO EFECTOS 




Una aplicaeion inmediata e intere- 
sante consiste, piles, en escuchar nues- 
tra musica favorita mientras tecleamos 
o ejecutamos un programa. Incluso 
po demos disfrutar, en la mayoria de 
los casos. con un video juego basado 
en una famosa pelicula. deleitandonos 
simultaneamente con su banda sono- 
ra. Mas aiin. es posiblc utilizar el or- 
denador como amplificador, introdu- 
ciendole senales de fuentes de poca po- 
tencia, como por ejcmplo un walkman. 



La cosa no acaba aqm; el sonido in- 
troducido puede modificarse de mul- 
tiples formas creando curiosisimos 
efectos, como a continuacidn vere- 
mos. 



EL FILTRO PROGRAMABLE DEL 
SID 

La principal forma dc modit'icar la 
serial exterior es utilizando el filtro 



programable que incorpora el chip de 
sonido. 

Un sonido cualquiera tiene lo que 
se llama un espectro de frecuencias, el 
cual lo caracteriza de forma univoca. 
Asi hablamos de que un sonido es agu- 
do cuando su espectro de frecuencias 
contiene principalmente frecuencias 
altas. Pues bien, lo que hace un filtro 
es seleccionar una parte del espectro, 
es decir, dejar pasar ciertas frecuen- 
cias de un sonido. De esta forma se 



INPUT 7 



Program^" 



pueden distinguir varios tipos de fil- 
tros: 

- Paso bajo: deja pasar las frecuen- 
cias mas bajas hasta una determinada 
denominada de corte. 

- Paso alto: actua como el anterior 
pcro permitiendo el paso unicamente 
a las altas. 

- Paso banda: deja pasar una band a 
de frecuencias centrada en torno a la 
denominada central. 

- Banda eliminada: elimina una ban- 
da del espectro. 

El Commodore 64 permite utilizar 
cualquiera de estos cuatro filtros, e in- 
cluso una combinacion de ellos, ya 
que lleva incorporado un filtro progra- 
mable. La programacion se efectua al- 
terando de forma adecuada ciertos re- 
gistros del SID. 

Los registros 21 (posicion 54293 de 
la memoria) y 22 (54294) se encargan 
de establecer la frecuencia de corte, 
para los filtros paso bajo o paso alto, 
o la central, para el paso banda. Para 
seleccionarla basta obtener un nume- 
ro de once bits mediante la siguiente 
expresion : 



FREC. CORTE CENTRAL - 30 

N= 

5.8 



En esta formula la frecuencia debe 
ir expresada en Hertz, o lo que es lo 
mismo en ciclos/segundo. 

El numero N debe descomponerse 
en dos partes: los 8 bits mas significa- 
tivos de N deben introducirse en el re- 
gistro 22 y los 3 menos significativos 
en los bits a 2 del registro 21. Por 
ejemplo, si tomamos la frecuencia de 
corte de 1 KHz = 1000 Hz. tendremos 
que N = 167 (decimal) = 00010100111 
(binario). Por tanto, en el registro 21 
se introduce 111 (bin.) - 7 (dec), es 
decir, POKE 54293,7 y en el 22, 
00010100 (binario) = 20 (dec), o sea, 
POKE 54294,20. 

El registro 23 indica que senales pa- 
san por el filtro. El bit activado in- 
dica que la voz 1 pasa por el filtro; ac- 
tivando el bit 1 pasa la voz 2; hacien- 
do lo propio con el 2, pasa la voz 3 y 
finalmente activando el bit 3 pasa la 



senal exterior. Naturalmente pueden 
realizarse todas las combinaciones que 
se desee. 

Los bits 4 a 7 de este registro se uti- 
lizan para determinar la frecuencia de 
resonancia del filtro, aunque no son 
demasiado importantes. 

El registro 24 (54296), a parte de 
determinar el volumen, selecciona el 
tipo de filtro a utilizar. Activando los 
bits 4, 5 y 6 se activan respectivamen- 
te los filtros paso bajo, paso banda y 
paso alto. Pueden hacerse combina- 
ciones y obtener asi una banda elimi- 
nada activando el paso bajo y paso 
alto. 

El espectro de frecuencias audibles 
va desde los 20 Hz. hasta los 20.000 
Hz., por lo que los filtros solo son ope- 
ratives dentro de estos margenes. 



CREANDO EFECTOS 



Son innumerables los efectos que se 
pueden crear utilizando el filtro y el 
control de volumen sobre una serial 
exterior. El mas sencillo, quiza, con- 
sista en hacer subir lentamente el vo- 
lumen hasta el maximo para conseguir 
una transicion suave entre silencio y 
musica. 

Podemos comprobar como actuan 
los filtros sobre un sonido externo me- 
diante el siguiente programa: 

■WTEW para Commodore-64 

10 PRINT "( CLR) PASO 

BAJ0-1 " 
20 PRINT "PASO BANDA-2" 
30 PRINT "PASO ALTO-3" 
40 INPUT "TIPO DE FILTRO 

";N% 

50 IF N%<1 OR N%>3 THEN 
100 

60 POKE 54295,8: 

POKE 54296,1 5+8*2 A N% 
70 IF N%=1 THEN A=240 
80 IF N%>1 THEN A=0 
90 POKE 54294, A 
100 GET A$;IF A$="" THEN 
100 

110 IF A$="CFD" THEN 
IF A$<240 THEN 
A=A+2 



120 IF A$="CF3)" THEN 
IF A>2 THEN A=A~2 
130 GOTO 90 

Al ejecutar el programa y seleccio- 
nar la opcion paso bajo o paso alto oi- 
remos la musica sin alteraciones. Sin 
embargo, pulsando Fl y F3 podemos 
subir o bajar las frecuencias de corte. 
Si habiendo seleccionado el paso bajo 
vamos bajandola, oiremos como cada 
vez los sonidos son mas graves y cada 
vez mas ininteligibles. Subiendo la fre- 
cuencia del paso alto solo dejaremos 
pasar los agudos y el sonido produci- 
do sera chirriante. Usando el paso 
banda podemos seleccionar margenes 
mas estrechos de frecuencia. Podemos 
asi actualizar un sonido. 

El efecto mas espectacular se consi- 
gue haciendo variar la frecuencia cen- 
tral del paso banda de forma rapida. 
De esta manera, la musica exterior ex- 
perimenta curiosas fluctuaciones y el 
sonido parece mas artificial. Estos 
efectos se perciben mejor si introduci- 
mos voz humana en lugar de musica. 
El siguiente programa permite com- 
probar lo comentado: 

■£HTj£fl para Commodore-64 

10 POKE 54296,47 : POKE 

54295,8 
20 FOR 1=20 TO 240 STEP 2 

:P0KE 54294, I: NEXT 
30 FOR 1=240 TO 20 STEP-2 

:P0KE 54294,I:NEXT 
40 GOTO 20 

La variacion de la frecuencia del fil- 
tro es lineal, pero podemos hacer que 
esta sea armonica sin mas que sustituir 
las lineas 20 y 30 por : 

^^^^S para Commodore-64 

20 FOR 1=0 TO 2*3.1415 

STEP .1 :A=110+90*SIN(I) 
30 POKE 54294, ArNEXT 

Si no nos gusta el efecto puede va- 
riarse la velocidad de fluctuacion mo 
dificando el STEP. 

Ramon y David Olle 
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SPECTRUM 
COMMODORE 64 

P.V.P. 2.500 Ptas. 





Uno c/e los heroes mas famosos del "Comic" se 
convierte en realidad en este soberbio juego de Arcade 
de VIRGIN GAMES, editado en Espana por ORG SOFT. 

Fundadores, 3 - 2802S Madrid. Telf. 255 45 00/09 



Aplicaciones 



JUGANDO CON LAS 
PALABRAS (y II) 



Ordenacion de listas por orden alfa- 
betico, busqueda de una secuencia es- 
pedfica de caracteres, redaction de 
cartas; todo esto podras hacer ademas 
de imprimir tu propio texto. 

En la parte anterior del listado del 
editor de textos ya has introducido los 
elementos basicos del editor de panta- 
11a que te permitiran crear fieheros de 
texto o fieheros de datos. En esta ter- 
cera y ultima parte examinaremos las 
rutinas SORT, SEARCH, PRINTER 
y FORM LETTER. 



ORDENACION 



La rutina de ordenacion utiliza un 
procedimiento de clasificacidn para 
ordenar las line as por orden alfabeti- 
co. Por ello resulta de gran utilidad en 
la ordenacion de listas tales como in- 
dices o registros. 



BUSQUEDA 



La utilidad de busqueda te permiti- 
ra comparar tu texto con una determi- 
nada cadena de caracteres a la que 
puedes llamar desde el editor. La bus- 
queda empieza en el punto en que si- 
tu es el marcador > por lo que tienes 
que asegurarte de que esta al princi- 
pio del texto que quieres corregir de 
forma que se explore toda la memoria. 

Si una determinada busqueda fraca- 
sa — el caso mas frecuente es que ha- 
yas introducido algun error al teclear 
la cadena que quieres buscar — la mar- 
ea se ira al final del texto. Si estas 
completamente seguro de la existencia 
de una determinada secuencia, inten- 
ta acortarla al introduciria. 

Cuando se completa una busqueda, 
el programa sigue en modo editor y 
puedes copiar facilmente la cadena de 



caracteres a buscar en el area de tex- 
tos. 



IMPRESION 

La rutina dc impresion te permite 
sacar copias de impresora de tus fiehe- 
ros de texto. Tiene algunas caracteris- 
ticas especiales entre las que se inclu- 
yen una subrutina de initialization 
para controlar el formato de impre- 
sion y otra subrutina para formar las 
letras. Si utilizas una impresora no es- 
tandar, naturalmente tienes que car- 
gar y activar un software de interface 
antes de usar la utilidad de impresion 
del editor de textos. 



FORMATEADO 

El poder introducir y editar tu pro- 
pio texto te servira de muy poco si no 
puedes sacarlo en la forma en que tu 
quieras. Por ejemplo, pucde ser que 
quieras imprimir el encabezamiento 
de un documento en el ccntro de una 
linea, y dejar toda una h'nea en bian- 
co por debajo. Esto resulta muy facil 
utilizando los comandos de formatea- 
do. Otro ejemplo muy corriente es el 
dc las cartas en que se coloca la direc- 
tion del firm ante al lado derecho y la 
direccion del destinatario al lado iz- 
quierdo. 

Los signos utilizados han de ir colo- 
cados al principio de la linea sobre la 
que actuan. El signo # posiciona la li- 
nea de texto al lado derecho de la pa- 
gina. Si no hay mas que una linea, se 
colocara su extremo lo mas a la dere- 
cha posible. Si hay varias lmeas jun- 
tas, cada una con un signo #, como 
ocurre por ejemplo en una direccion 
completa, el programa mide la longi- 
tud de la linea mas larga y hace que 
las restantes lineas queden alineadas 
con esta. 
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DE CARTAS 
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1 FORMATOS 

■ \ CENTRAND O 

TEXTOS 

■ JUSTIFICACION A IZQUIE RDA 

Y DERECHA 




HI signo & hacc que la siguiente li- 
nes de texto comience al principio de 
una nueva linea en la parte izquierda 
de la pagina. Tendrias que usar este 
signo al principio de cada linea de una 
direccion que quieras alinear por la iz- 
quierda. El signo de dolar, $, hace lo 
mismo pero dejando una linea cn 
bianco por encima de cada linea. 

El asterisco,*, situa el texto en el 
centro de la lmea. Al utilizarlo ticnes 
que tener cuidado de que el texto no 
sea demasiado largo; tiene que ser 
mas corto que una linea normal. 



ESCRITURA DE MODELOS DE 
CARTAS 



Aparte de los comandos normales 
de formateado, existe otra interesante 
utilidad con la que podras crear mo- 
delos de cartas. Utiliza un comando 
consistente en un par de corchetes co- 
locados espalda con espalda, ][, que 
puedes colocar casi en cualquier parte 
del texto. Se utilizan estos sfmbolos en 
lugar de palabras o bloques de texto 
que pueden cambiar de una carta a 
otra. De esta forma puedes empezar 
una carta con un Querido ][, por ejem- 
plo, y a continuation introducir un 
nombre de persona diferente para 
cada letra. 

Los simbolos se pueden colocar 
en cualquier parte, excepto despues 
de un simbolo #, Esto se debe a que 
el programa necesita medir la longitud 
de la linea para situarla correctamen- 
te a la derecha, y dado que posiciona 
el texto antes de que tti llenes el blo- 
que, es muy probable que al final que- 
de mal situado. 

El texto que sustituye a los simbo- 
los ][ se puede introducir directamen- 
te desde el teclado a medida que va 
apareciendo cada simbolo, o puede 
leerse desde un fichero. 

El numero maximo de caracteres 
por insertion es de 40 para el Commo- 
dore 64. Esto significa que el texto tie- 
ne que ser fraccionado en grupos de 
40 caracteres, y que debes introducir 
un simbolo ] [ por cada unidad que se- 
rf ale el principio de un bloque de tex- 
to. Ningun bloque de texto puede te- 
ner mas de 250 caracteres. 



Si la information variable se intro- 
duce a partir de un fichero, el ordena- 
dor buscara el par ][, introduciendo di- 
cha informacion en los lugares apro- 
piados. 

MfiSlFEB pars C-64 

2140 PRINT"CC0MM+6JINSERTAR= 
CC0MM+6J"0W n CC0MM+6:iEDI 
CI0N=";EM:PRINT"CCTRL+6] 
"SW$"CCTRL+8J "; : RETURN 

40D0 print'tshift+clr/home: 

CCRSR abajoJCCTRL+9J" 
TAB(15)"LCTRL+4IISAVE 
DEL FICHER0CCTRL+8J " 
4005 IF TL=1 THENPRINTTABC12) 
"CCRSR aba] o3 CCRSR 
abajoJCCRSR abajoJNO 
HAY NADA QUE GUARDAR": 
F0RZ=1T01500:NEXT: 
RETURN 

4010 INPUT'TCLR/HOMEII CCRSR 

abajoJCCRSR abajoJCCRSR 
abajoJCCRSR abajo3 
NOMBRE DEL FICHERO"; F$: 
F$=LEFT$(F$,16) 

4020 IF LEFT$(F$,1X"A"0R 
LEFT$CF$,1)>"Z"THEN 
4010 

4030 if ts=1 then 4110 
4040 print"Cshift+clr/home: 

CCRSR abajoJCCRSR dcha.J 
P0SICI0NAR LA CINTA Y 
DESPUESCCRSR dcha.J 
CCRSR dcha,3PRESI0NA 
<RETURN>. CCRSR abajoJ 
CCRSR abajoD" 

4050 GET A$:IF A$<>CHR$C13) 
THEN 4050 

4070 0PEN1,1,1,F$ 

4080 PRINTS, CP: PRINT#1>TL 

4090 FOR K=0 TO TL:PRINT#1, 

CHR$(34)+TX$(IO + CHR$(34) 
:NEXT 

4100 CL0SE1 : RETURN 

4110 PRINT"[SHIFT+CLR/H0MEJ 
CCRSR abajoJCCRSR dcha.J 
VERIFICA QUE ESTA 
CONECTADA LA UNIDAD" 

4111 PRINT"Y QUE C0NTENGA UN 
DISKETTE." 

4112 PRINTTAB(2)"PRESI0NA 
<RETURN>" 

4120 GET A$:IF A$OCHR$C13) 



INPUT 11 
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Aplicaciones 



4130 



4140 
4150 



4160 
4500 



4505 
4510 



4520 

4530 
4535 
4540 



4550 



4560 
4570 



4580 

4590 
4600 
4610 

4620 
4650 

4660 



THEN 4120 

0PEN1,8,15,"S0:"+F$: 
CL0SE1 :0PEN2,8,2,F$+", 
S,W" 

PRINT#2,CP:PRINT#2,TL 
FOR K=0 TO TL:PRINT#2, 
CHR$(34)+TX$(K)+ 
CHRSC34) 

NEXT:CL0SE1 :RETURN 
PRINT"! SH1FT+ CLR/ HOME: 
CCRSR abajolCCTRL+93" 
TAB(14)"CCTRL+4KARGA 
DE UN FICHEROCCTRL+8:" 
IF TL=1 THEN4540 
POKE 198,Q:PRINT TAB 
(10)"CCRSR abajo^ESTAS 
SEGURO CS/N)?" 
GET R$:IF R$<>"S" AND 
R$<>"N" THEN 4520 
IF R$="N" THEN RETURN 
TL=1 :GOT0 4500 
INPUT"CCLR/H0ME3 
CCRSR abajoUCCRSR abajo: 
CCRSR abajolCCRSR abajo: 
NOMBRE DEL FICHERO"; F$: 
F$=LEFT$(F$,16) 
IF LEFT$(F$,1X"A"OR 
LEFT$(F$,1)>"2"THEN 
4540 

if dl=1 then 4650 
printtshift+clr/home: 

CCTRL+9: CCRSR abajo: 
CCRSR dchaJCCRSR dcha.: 
CCRSR dcha.XCTRL+4: 
CCRSR abajoDCCRSR dcha-3 
POSICIONAR LA CINTA Y 
DESPUESCCRSR dcha-: 
CCRSR dcha.KCRSR dcha.: 
CCRSR dcha.HCRSR dcha.: 
CCRSR dcha.KCRSR dcha.: 
CCRSR dcha.lCCRSR dcha.: 
CCRSR dcha.:CCRSR dcha.: 
PRESIONA <RETURN>. 
CCTRL+81" 

GET R$:IF R$OCHR$C13) 
THEN 4580 
OPEN1 ,1,0, F$ 
INPUT#1,CP,TL 

FOR K=0 TO TL:INPUT#1, 

TX$CK) : NEXT 

CL0SE1 : RETURN 

OPEN2,8,2,F$+",S,R": 

INPUT#2,TL,CP 

FOR K=0 TO TL:INPUT#2, 

TXSCK) :NEXT 



4670 CL0SE1 : RETURN 

5000 PRINT"CSHIFT+CLR/HOMEj 
CCRSR abajo^ CCTRL+9J" 
CHR$C142);TABC15);" 
CCTRL+43SELECCI0N DE 
E/SCCTRL+8H" 

5005 PRINT'TCRSR abajo: 

CCRSR abajoJCCRSR dcha. J 
CARGAR DESDE CCTRL+9: C 
CCTRL+03 INTA CCTRL+9: 
DCCTRL+ODISCO? 
CCRSR dcha.:"; 

5010 GET B$:IF B$<>**C" AND 
BSO"D" THEN 5010 

5020 PRINT B$:DL=0:DL=0:IF 
B$="D" THEN DL=1 

5030 PRINT:PRINT"CCRSR dcha.: 
CCRSR dcha.J ALMACENAS 
EN CCTRL+9: CCCTRL+0: 
INTA CCTRL+9: DCCTRL+OJ 
ISC07CCRSR dcha.:"; 

5040 GET B$:IF B$O lf C" AND 
B$O r, D" THEN 5040 

5050 PRINT B$:TS=0:IF B$="D" 
THEN TS=1 

5060 RETURN 

5070 CF=0:L=PM:PRINT LEFTS 

(GC$,23)"CADENA MUESTRA" 

5080 INPUT TG$:IF TG$=""THEN 
5070 

5090 PRINT GC$;SPC(25)" 
CCTRL+9: CSHIFT+B3 
USQUEDA" 

5100 IF L=TL THEN CP=TL:PM= 
CP:PRINT"CSHIFT+ 
CLR/H0ME3":G0SUB 2090: 
RETURN 

5110 IF TX$CL)= M " THEN L=L+1 
:G0T0 5100 

5111 FOR F=1 TO LEN(TX$(L) ) : 
CF$=MID$(TX$(L) ,F,LEN 
(TG$) ) 

5112 IF CF$=TG$ THEN CF=F 

5118 NEXT F 

5119 IF CF=0 THEN L=L+1:GOT0 
5100 

5120 CP=L+1 : PM=CP: PRINT" 
CSHIFT+CLR/HOME:":GOSUB 
2090: RETURN 

5130 IF SS>SE THEN TT=SS:SS= 

SE:SE=TT 
5140 SE=SE-1 
5150 PRINT GC$;SPCC25) M 

CCTRL+9: CSHIFT+S30RT 

EN CURSO " 



5160 
5170 
5180 
5190 

5200 



5210 



5500 



5510 



5520 



5530 



5540 



5540 



5550 



5560 



5562 



5565 
5570 



FOR I=SS TO SE-1 
K=I 

FOR J=I+1 TO SE 

IF TX$(JXTX$CK) THEN 

K=J 

NEXT: IF I OK THEN TT$= 
TXSCK) :TX$(K)=TX$(I) : 
TX$(I)=TT$ 
NEXT:PRINT"CSHIFT+ 
CLR/H0MEJ":G0SUB 2090: 
RETURN 

PRINT" CSH I FT+ CLR/ HOME] 
CCRSR abajo: CCTRL+93" 
TAB(13);"CC0MM+*:AJUSTE 
DE IMPRESORACCTRL+83" 
PRINT"CCRSR abajo: 
CCRSR abajoHCCRSR abajo: 
CCRSR abajo: ": INPUT" 
CCRSR dchaJANCHURA MAX. 
DE LINEACCRSR dcha.:"; 
MW:MW=INT(MW) :IF MW<1 
THEN 5510 

INPUT'TCRSR abajoJ 
CCRSR aba joH ANCHURA DE 
LINEACCRSR dcha.: M ;TW: 
TW=INTCTW) :IF TW<1 OR 
TW>MW THEN 5520 
INPUT"CCRSR abajo: 
CCRSR dcha -JLONGITUD DE 
PAGINACCRSR dcha.: M ;PL: 
PL=INT(PL) :IF PL<1 THEN 
5530 

INPUT'CCRSR abajo: 
CCRSR dcha.:LONGITUD 
DEL TEXTOCCRSR dcha.:"; 
TH :TH=INT< TH) : IF TH>PL 
THEN 5530 
INPUT'CCRSR abajoD 
CCRSR dcha .] LONGITUD 
DEL TEXTOCCRSR dcha. 3"; 
TH:TH=INTCTH) :IF TH>PL 
THEN 5530 

GP=INTC(MW-TW)/2) :LF$= 
"":FOR F=1 TO INTC(PL- 
TH)/2) :LF$=LF$+CHR$(13) 
:NEXT 

PRINT'CCRSR abajoJ 
CCRSR dcha.JNO. DE DIS 
POSITIVO PARA LA 
IMPRESORA" 
PRINT"CCRSR dcha.: 
CCTRL+9:4,5,6CCTRL+0: 
(6=S0LO EL PLOTTER)?"; 
GET Z$:DN=VALCZ$) 
IF DN<4 OR DN>6 THEN 
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5565 

5580 PRINT DN: PRINT M 

LCRSR abajo:CCRSR abajo] 
CCRSR dcha.JES C0RRECT0 
(S/N)?" 

5600 IF G$="N" THEN 5500 

5610 RETURN 

Para utilizar la rutina de ordenacion 
SORT, tienes que pasar al modo de 
edicion (v. artfculo anterior). Coloca 
la marca al principio o al final del gru- 
po de lmeas que quieres ordenar y a 
continuation pulsa @. Desplaza el 
marcador hasta el otro extremo y pul- 
sa @ otra vez. Esto define el margen 
que abarca la clasificacion y la pone 
en marcha. 

Durante el modo de edicion puedes 
llamar a la utilidad de busqueda te- 
cleando S. En la zona de trabajo te 
aparecera un mensaje pidiendote que 
introduzcas la cadena de caracteres 
que quieres buscar. Teclea dicha ca- 
dena, y a continuation pulsa RE- 
TURN para que empiece la busque- 
da. 

Cada vez que aparezca en eltexto la 
cadena de caracteres especificada, 
aparecera la correspondiente portion 
del texto, con la marca situada inme- 
diatamente debajo de la linca que con- 
tiene la cadena buscada. 

Si quieres obtener una copia de tu 
texto en papel, selecciona P en el 
menu principal. El programa te pedi- 
ra en primer Iugar que selecciones de 
donde quieres sacar el texto a impri- 
mir : M para la memoria o F para fi- 
chero. Seguidamente te preguntara si 
deseas rellenar bloques variables de 
texto, como ocurre en los modelos de 
cartas, y si quieres hacerlo desde el te- 
clado o desde un fichero. Estas dos 
instrucciones solo se aplican en el caso 
de modelos de cartas. Seguidamente 
te preguntara si quieres tener una sa- 
lida de muestra; si tecleas Y dara co- 
mienzo la rutina de initialization de la 
impresora. 

Esta rutina te pedira que introduz- 
cas la maxima anchura de columna 
(normalmente 80 caracteres), la an- 
chura efectiva de line a (con 60 te que- 
daran margenes de 10 caracteres), la 
longitud maxima de pagina (tipica- 
mente 40) y finalmente la longitud efi- 



caz de pagina requerida. A continua- 
cion el programa te pedira el mimcro 
de dispositivo de la impresora. Teclea 
4, 5 o 6 segun la impresora. Tienes una 
nueva oportunidad de corregir errores 
ya que al final te aparece un mensaje 
de «TODO ESTA BIEN?». Si respon- 
des N, el control volvera al principio 
de la rutina de entrada. 

EI programa te preguntara de nue- 
vo si deseas una salida de prueba. Si 
tecleas Y aparecera en la pantalla una 
version simulada de la copia de impre- 
sora. Cuando hagas formateado de 
textos, esto te permitira detectar erro- 
res y corregirlos. 

Despues de la muestra de salida vol- 
vera a aparecer el mismo mensaje de 
antes. Si ahora tecleas N dara comien- 
zo la impresion. Asegurate de que la 
impresora esta encendida y de que el 
papel esta debidamente colocado. 



En el caso de que hubieras seleccio- 
nado F para imprimir a partir de un fi- 
chero, el programa se ira inmediata- 
mente a la rutina LOAD para buscar 
el correspondiente texto. 

En el formateado, el signo # man- 
tiene el texto dentro del margen dere- 
cho especificado. El signo $ salta a una 
nueva Ifnea y ajusta su position con la 
lmea anterior, siempre que dicha lfnea 
hay a term in ado en el margen derecho. 
El signo & salta a una nueva lrnea y 
evita que la impresora escriba una 
nueva lfnea sobre la misma linea im- 
presa del texto, incluso aunque haya 
suficiente espacio para ello. Por ulti- 
mo, el asterisco * sirve para centrar la 
linea del texto al que precede. 

Para hacer modelos de cartas, inser- 
ta un par de corchetes en oposicion 
][,en los puntos de la carta en que 
quieras introducir texto variable . 
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participa 



PROYECTO 
GIOTTO 



Observar los astros, situarlos en el 
tirmamento, explicar su origen y sus 
movimientos, descubrir su constitution 
y sus particular idades, desentranar, en 
fin, el origen, la forma, los limites, la 
evolucion y todo enigma del Universo, 
todo esto es hacer astronoinia. 

Los astronomos de tiemos remotos, 
que solo dispoman de sus ojos para 
efectuar observaciones, quedan'an 
mudos de asombro ante el complejo 
equipo que se usa en nuestros dfas. El 
Universo revelado por esos instru- 
ments se extiende a traves de distan- 
cias en el espacio y en el tiempo que 
desafian a toda imaginaeion. 

Asi por ejemplo, la Tierra, sobre 
cuya superficie vivimos, es simple- 
mente un miembro de una familia de 
planetas que giran alrededor del Sol, 
mientras que el propio Sol no es mas 
que una de tantas estrellas del enorme 
sistema estelar, la Via Lactea, que es 
nuestra galaxia. Asimismo, nuestra 
galaxia es tan solo un punto diminuto 
en medio de una multitud de galaxias 
que se extienden hasta los confines del 
Universo. 



<>QUE HACE EL PRO GRAMA? 

Este programa didactico, ademas 
de proporcionarnos algunos datos in- 
teresantes sobre los planetas que cons- 
tituyen el sistema solar, nos enseria va- 
rios trucos dc gestion de memoria para 
sacar el maximo provecho dc las estu- 
pendas caracteristicas graficas del 
C-64. 

«Proyecto Giotto» comienza con 
una introduccion al nucleo del progra- 
ma, en el que por medio de un como- 
do menu podemos elegir entre tres op- 
ciones: A, B 6 C. 

En la opcion A, los 9 planetas del 
sistema solar estan ordenados segun 
su proximidad al Sol y se les ha asig- 




nado un numero diferenciador. Al es- 
coger esta opcion el programa nos pe- 
dira el numero del planeta deseado y 
nos ofreccra informacion variada so- 
bre el misino. Dicha informacion no 
solo se limita a darnos una tabla de da- 
tos, sino que tambien muestra diver- 
sas peculiaridades del astro. 

En esta seccion, tanto para pasar de 
las «peculiaridades» a las tablas de da- 
tos como de nuevo al menu, basta con 
pulsar cualquier tecla. 

La opcion B nos permite obtener un 
estudio comparativo de todos los pla- 
netas con respecto a una de las 9 ca- 
ractensticas siguientes: 

L- Diametro ccuatorial 

2. - Achatamiento 

3. - Volumen 

4. - Masa 

5. - Densidad 

6. - Gravedad 

7. - Periodo de rotacion 

8. - Revolucion siderea y sinodica 

9. - Albedo 

En apartados como la masa y el vo- 
lumen se ha tornado el valor de la Tie- 
rra como unidad, y a partir de ahi se 
comparan los datos de los otros plane- 
tas, ya que asi, a una escala menor, re- 
sulta mucho mas facil entcnder las di- 
ferencias entre los astros que con ci- 
fras de muchos ceros. 



Por medio dc la opcion C del menu, 
una agradable sorpersa nos despedira. 



DESCR1PCION DE LAS RUTIN AS 

Las principals rutinas que compo- 
nen el programa son: 

90-730: Presentacion. 

750-820: Se lee informacion concer- 
niente a los planetas, almacenada en 
forma de DATAs. 

830-860: Se establece la clave de ac- 
ceso. 

870-980: Se pide la clave. 

990-1240: Menu. 

1250-1440: Opcion B. 

1450-1710: Hace subir el cohete de 
despedida y provoca el sonido de ex- 
plosion. 

1720-1750: Redefine los caractercs. 
Para trasladar la informacion de los 
caracteres dc la ROM a la RAM he 
utilizado una rutina en CM. situada 
entre las posiciones 49152-49209 (hnea 
250), que sirve para trasladar bloques 
de memoria de un lugar a otro. Es lo 
que se llama «MOVE MEMORY». 

1780-1820: Se activan 8 sprites, se 
cstablcccn sus colorcs y punteros y se 
leen los datos de sus formas. 

1840-1860: Situa el cohete. 

1870-2050: Imprime torre de lanza- 
miento y mensaje de despedida. 
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2060-2200: Reloj. 

2210-5000: Option A. 

5010-5040: Sonido Reloj. 

5050-5120: Sonido de presentation. 

5130-5170: Sonido de la opcion A. 
Dependiendo dc la tecla que se pulse 
el sonido sera diferente. 

5180-6030: DAT As. 



MAS DETALLES 

De enlre todas estas ruiinas, creo 
que las Imeas 10 y 30 merecen una ex- 
plication mas detallada. 

10 POKE 55,0:POKE 56,0:CLR 
30 POKE 56578 ,PEEK(56578) OR 
3:POKE 56576,(PEEK(56576)AND 
252) OR LPOKE 53272,4:POKE 
648,128 

El programa utiliza bastantes carac- 
teres redefinidos asf como sprites. 
Cuando utilizamos jtiegos de caracte- 
res personalizados y otras caracteristi- 
cas graficas del C-64, facilmente nos 
pueden aparecer problemas con la me- 
moria del ordenador. 

Hay que tener en cuenta que el 
C-64 ticne dos sistemas diferentes que 
comparten las misma zona de memo- 
ria: el chip de video (VIC II). que se 
encarga de proporcionar todos los mo- 
dos graficos. y el BASIC. Sin embar- 
go, a pesar de que el 64 posee 65536 
(o 64K) posiciones de memoria direc- 
cionables, el VIC II solo es capaz de 
acceder simultaneamente a 16K, es 
decir, la euarta parte. Si dividimos los 
64K en cuatro bloques de 16K, podre- 
mos decide al VIC II sobre cual de los 
cuatro bloques (o bancos) va a traba- 
jar. 

Nonnalmente el VIC II accede al 
primer banco (posiciones 0-16384), 
que es una zona bastante ocupada. El 
unico cspacio libre en este banco 
(aparte del buffer del cassette 828-1019 
y las posiciones 704-767, que pueden 
scr utilizadas, por ejemplo, para colo- 
car los datos de nuestros sprites) se en- 
cucntra entre las posiciones 
2048-16384. Este lugar es tambien uti- 
lizado por el BASIC. 

De todo esto se deduce que no que- 
da suficiente espacio disponible para 
todos los graficos, ya que la mayor 
parte de la memoria en dicho banco 
sera acaparada por el BASIC. 



jPero no lancemos la toalla! Tene- 
mos dos soluciones: la primera, indi- 
cate al VIC II que cambie de banco 
de memoria o bien, la segunda solu- 
tion, recortar el espacio dedicado al 
BASIC. 

Si optamos por la segunda solution, 
lo que haremos sera retrasar el princi- 
pio del area dc los programas BASIC. 

Cuando encedemos el C-64 encon- 
tramos los numeros 1 y 8 en las posi- 
ciones 43-44 y los numeros y 160 en 
las posiciones 55-56. Estos valores ha- 
cen referencia a las direcciones de me- 
moria; para pasarlos a la notacion de- 
cimal, multiplicamos el scgundo nu- 
mero por 256 y le sumamos el prime- 
ro (8 por 253 son 2048, mas 1 nos da 
2049). El puntero en las direcciones 
43-44 nos seriala el inicio del BASIC. 
Los punteros de las posiciones 55-56 
apuntan hacia la direction 40960, un 
byte por encima de la position mas 
alta utilizable por un programa BA- 
SIC. 

Pues bien, cambiando los punteros 
de las direcciones 43-44 modificare- 
mos la direction dc comienzo del BA- 
SIC. 

Este metodo es mas sencillo que in- 
dicate al VIC II que cambie de banco 
de memoria, pero tiene sus inconve- 
nientes: tiene que haber un programa 
de initialization o si no, tenemos que 
teclear en modo dirccto, y antes de 
cargar el programa, el cambio de pun- 
teros ya que no podemos introducir di- 
chos comandos dentro del programa. 
{A que se debe esto? 

La respuesta es bien sencilla: al car- 
gar el progrma las primeras lmeas del 
mismo se han situado al principio del 
area reservada a] BASIC. Si ahora 
dentro del programa eliminamos ese 
trozo de memoria, destruiremos el 
programa. 

Estos son los inconvenientes de re- 
cortar el cspacio dedicado al BASIC. 

Ahora bien, que pas aria si le indi- 
camos al VIC II que cambie de banco 
de memoria. Veamoslo. Disponemos 
de 3 bancos de video mas, aparte del 
banco 0, el banco 1, el banco 2 y el 
banco 3. En el banco 1 y en el banco 
3 el juego de caracteres del 64 no es 
accessible por el VIC II. Luego toma- 
mos el banco 2. 



Una vez que sabemos el banco de 
video con el que vamos a trabajar, el 
2 (posiciones 32768-49152), le tene- 
mos que indicar al BASIC donde ter- 
mina su espacio libre. Para ello modi- 
ficamos los punteros de las direccio- 
nes 55-56 y los hacemos apuntar a la 
position 32768, que es el inicio del 
banco 2: 

POKE 55,0:POKE 56,128:CLR 
Acabamos de modificar el limite su- 
perior del BASIC. A continuation de- 
bemos indicate al VIC II que trabaje 
con el banco dc video recien elegido: 
el 2. 

POKE 56578,PEEK(56578) OR 3, 
para poder cambiar de banco. 

POKE 56576, (PEEK (56576) AND 
252)OR 1, para acceder al banco 2. 

Ahora el VIC II piensa que los ca- 
racteres en ROM estan en las direc- 
ciones 36864-40959. 

Ya tenemos espacio suficiente para 
nuestros graficos personalizados y 
sprites (a partir de la direction 32768 
hasta la 36863 se encuentran 4K libres, 
y desde la direction 40960 hasta la 
49151 otros 8K), sin preocuparnos de 
la longitud de nuestros programas 
BASIC, para lo cual disponemos de 
30K. 

Pero aun no hemos terminado. 
Tambien debemos desplazar la memo- 
ria de pantalla (IK), que es una zona 
de RAM (memoria de lectura y escri- 
tura) donde se almacena la informa- 
tion de lo que se esta visualizando en 
la pantalla. Su position puede ser 
cambiada facilmente con un POKE 
del registro 53272. Este registro fija 
tanto las posiciones de la memoria de 
pantalla como las del juego de carac- 
teres. Mediante: 

POKE 53272,4 

la nueva position de la memoria de 
pantalla sera 32768-33791 y la del jue- 
go de caracteres 36864-40954. Hay 
que recordar que los punteros de los 
sprites forman parte de la memoria de 
pantalla y se trasladan con eila, Por lo 
tanto los punteros se encuentran aho- 
ra en las posiciones 33784-33791. 

Finalmente, el BASIC tiene que ser 
informado tambien de la position de 
la memoria de pantalla: 

POKE 648,128 

El programa situa las posiciones de 
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las definiciones de los sprites (no con- Una vez explicadas, mas a fondo, taneamente las teclas RUN/STOP y 

fundir con los punteros) entre las po- las lmeas 10 y 30, y para finalizar el RESTORE ya que si no, el ordena- 

siciones 33792-34302, y la de los gra- presente artfculo, no me queda mas dorse bloquearia. 

ficos redefinidos entre las posiciones que aconsejar que durante la ejecu- 

34816-36864. cion del programa no se pulsen simul- Luis Miguel Garay Gallastegui 



1 REM**CDSIGNIFICA 'ESPACIO' 
10 POKE55,0:POKE56 / 128:CLR 
20 PRINT'TSHIFT+CLR/HOMED" 

30 P0KE56578,PEEK(56578)0R3:P0KE56576,(PEEK(56576)AND252)0R1 : P0KE53272,4: 
P0KE648,128 

40 PRINT"CSHIFT+CLR/H0MEDCCTRL+1D CCRSR abajoD" 

50 DIMT$(9),V$(9),ME$<9) ,VE$(9) ,TI$C9) ,MA$(9) ,JU$C9) ,SA$C9) 

60 DIMUR$(9) ,NE$(9),PL$(9),WW$(9),MN$(11),VN$(8),NN$(9) ,J J $C1 0) ,SS$(8) ,UU$C1 0) 

70 DIMKK$(10),PP$(8),TT$(14),HH$(13),VC$(20) 

80 F2=4:PR=33792 

90 POKE53280,9:P0KE53281 ,12 

100 PRINT'TCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

[CRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha .D CCTRL+9D CD CD Oil O CD O CD CD 

a a a cd a □ cd cd a a a a □ c ctrl+od m 

110 PRINT"CCTRL+2DCCRSR dcha .3 CCRSR dcha .D CCRSR dcha.DCCRSR dcha .3 CCRSR dcha. D 
CCRSR dcha.] CCRSR dcha.DCCRSR dcha .DCCTRL+9D CSHIFT+*D CSHIFT+*D CSHIFT+*D 
CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D 
CSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*D 

CSHIFT+*3CSHIFT+*TCSHIFT+*1CSHIFT+*KSHIFT+*]CSHIFT+*KSHIFT+*]CSHIFT+*1 n 
120 PRINT'TCRSR dcha.DCCRSR dcha .D CCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha .3 CCRSR dcha .1 CCRSR dcha .D CCTRL+9D CC0MM+AD CSHIFT+*D CSHIFT+ID 

ccom^+adcshift+*kshift+idccomm+a:cshift+*dccomm+sdccomm+adc]ccomm+sd 
ccomm+a3cshift+*:cshift+*kcomm+adcshift+*dcshift+*3ccomm+a3cshift+*d 

CC0MM+SnCC0MM+ADCSHIFT+*3CC0HPi+SD" 

130 PRINT'TCRSR dcha -D CCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha.D CCTRL+9D CSHIFT+BD CSHIFT+*D CC0MM+KD 
[SHIFT+BD CSHIFT+*D CC0MM+KD CSHIFT+BD CD CSHIFT+BD CCOMM+ZD CC0MM+RD CC0MM+XD 
CC0MM+QD CSHIFT+*D CD CSHIFT+BD CD CD CD CSHIFT+BD CD CSHIFT+BD CD CSHIFT+BD" 

140 PRINT'TCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 
CCRSR dcha.DCCRSR dcha.DCCRSR dcha .D CCTRL+9D CSHIFT+BD CD CD CSHIFT+BD CD 
CSHIFT+MD CCOMM+ZD CSH IFT+*D CC0MM+XD CD CSHIFT+BD CD CCOMM+ZD CSHIFT+*D CSHIFT+*D 
CCOMM+ZD CSHIFT+*D CSHIFT+*D CD CSHIFT+BD CD CCOMM+ZD CSHIFT+*D CCOMM+XD " 

150 PRINT'TCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha .D CCTRL+9D CSHIFT+*D CSHIFT+*D CSHIFT+*D 
CSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*D 
CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D CSHIFT+*D 
CSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+*D" 

160 PRINT'TCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha .D CCTRL+1D CCTRL+9D CD CD CD CD CD 
CD CD CD CD CD CD CD CD CD CD CD CD CD CD CD CD CD " 

170 PRINT'TCRSR abajoDCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 
CCTRL+8DCC0MM+RDCSHIFT+*DCSHIFT+*DCSHIFT+*DCSHIFT+IDCSHIFT+*DCC0MM+RD 
CSHIFT+UDCSHIFT+*DCSHIFT+*DCSHIFT+lDCSHIFT+UDCCOHM+RDCSHIFT+lDCSHIFT+UD 
CCOMM+RDCSHIFT+lDCSHIFT+UDCSHIFT+*DCSHIFT+*DCSHIFT+lD" 

180 PRINT'TCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 

CCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha .D CCTRL+1 D CCOMM+RD CCTRL+8D 
CSHIFT+BD CCTRL+1 D CSHIFT+*D CSHIFT+*D CSHIFT+ID CCTRL+8D CCOMM+ED CCTRL+1 D 
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rC0MM+R3CCTRL+8DCSHIFT+BnCSHIFT+B:[:CTRL+i:CSHIFT+*3{:SHrFT+IDCCTRL+8: 
CSHIFT+B] CCTRL+1 KC0MM+RKCTRL+8KSHIFT+BKCTRL+1KSHIFT+UKC0MM+RKCTRL+8] 
CSHIFT+BKCTRL+1KSHIFT+UKCTRL+8KSHIFT+BKCTRL+1KSHIFT+*KSHIFT+I] 
CCTRL+8] CSHIFT+B]" 
190 PRINT'TCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha -KCTRL+1 KSHIFT+BKCTRL+8] 

cshift+b] c] ccomm+q] cshift+*] cshift+i] cctrl+1 1 cshift+bkctrl+8] cshift+b] 
cshift+b: cctrl+1] cshift+b] cctrl+8] cshift+b] cctrl+1 ] cshift+b] cctrl+8] 
cshift+b] c] cctrl+1 ] cshift+bkctrl+8] cshift+b] cctrl+1 ] cshift+bkctrl+8] 
cshift+b] □ cctrl+1 ] cshift+bkctrl+8] cshift+b!] " 

200 PRINT'TCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha .] CCTRL+1 ] CSHIFT+B] CCTRL+8] 
CSHIFT+B] CCTRL+1 KCOMM+Q] CSHIFT+*] CSHIFT+I] CCTRL+8] CSHIFT+B J CCTRL+1 ] 
CSHIFT+BKCTRL+8] CSHIFT+B] CSHIFT+B] □ CCTRL+1 ] CSHIFT+B] CCTRL+8] CSHIFT+B] 
CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B] CJ CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B] 
CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B] C] CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+B]" 

210 PRINT'TCRSR dcha.]CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha .] CCTRL+1 ] CSHIFT+B] CCTRL+8] 
CSHIFT+J]CSHIFT+*]CSHIFT+*]CSHIFT+*]CCOMM+K]CSHIFT+*]CCOHM+E]CSHIFT+J] 
CSHIFT+*] CSHIFT+*] CCOMM+K] CCTRL+1 ] CSHIFT+BKCTRL+8] CCOMM+E] C] CCTRL+1 ] 
CSHIFT+B] CCTRL+8] CCOMM+E] CCTRL+1] CSHIFT+B] CCTRL+8] CSHIFT+J] LSHIFT+*] 
CSHIFT+*KCOMM+K]" 

220 PRINT'TCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 

CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha .] CCTRL+1 ] CSHIFT+J] CSHIFT+*] 
CSHIFT+*]CSHIFT+*]CCOMM+K]CSHIFT+*]CCOMM+E]CSHIFT+J]CSHIFT+*]CSHIFT+*] 
CCOMM+K] C] CCOMM+E] C] C] CCOMM+E] C] CSHIFT+J] CSHIFT+*] CSHIFT+*] CCOMM+K] " 

230 PRINT'TCRSR abajo]CCRSR abajoKCRSR abajoKCRSR dcha.KCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.]PORC]LUISGMIGUELC]GARAY" 

240 PRINT"CCTRL+4] CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha .] CCOMM+YKCOMM+Y] CCOMM+Y] 
CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] 
CC0MM+Y3 CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+Y] CCOMM+YJ CCOMM+Y] CCOMM+Y] " 

250 F0RX=49152T049209:READMC:P0KEX,MC:PZ=PZ+MC:NEXT:IFPZ<>6864THENEND 

260 PRINT'TCTRL+2] CCRSR abajo]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.]CCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha .] PULSAGUNACJTECLA" 

270 P0KE198,0 

280 GETA$:IFA$=""THEN280 
* 290 GOSUB5050 

300 PRINT'TSHIFT+CLR/H0MEKCTRL+2]":P0KE53280,0:P0KE53281,0 

310 FORP=1T0100:A=INT(RND(1)*960)+1 : P0KE32768+A,46 : NEXT 

320 PRINT'TCLR/HOMEKCRSR abajo]CCRSR dcha.]CCRSR dcha.KCRSR dcha.] 

CCRSR dcha .] CCTRL+6]ECCTRL+4]LC]H0MBREC]HAC] CONTEMPLADOC] EL CKIELO": PRINT 
"CCRSR abajo]CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] CSHIFT+R] " 

330 PRINT'TCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.] CCRSR dcha.KCRSR dcha.]YC]HAC]S0NAD0C] CONCKOSC] ASTROS" 

340 PRINT'TCRSR abajoKCRSR abajoKCRSR dcha.KCRSR dcha.KCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha .] CCTRL+9] DESDECCTRL+O] □ 
CCTRL+9]SIEMPRECCTRL+0] ." 
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350 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.l CCTRL+61ECCTRL+41NC1PLEN0C1SIGL0C1XX," 

360 PRINT"[CRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lEL 
C1C0SM0SC1SIGUEC1SIEND0" 

370 PRINT'TCRSR aba j oil CCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha .10BJ ET0C1 
DEC1ESTUDI0C1YC1 FUENTEC1 ENORME" 

380 PRINT'TCRSR abajolLCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l DEC1INTERES." 

390 P0KE198,0 

400 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha .1 CCTRL+81 CCTRL+91PULSAC1UNAC1TECLA" 

410 GETA$:IFA$=""THEN410 

420 G0SUB5050 

430 PRINT'TSHIFT+CLR/H0ME1CCTRL+21 M 

440 FORP=1T0100:A=INT(RND(1)*960)+1 :P0KE32768+A,46:NEXT 

450 PRINT"CCTRL+41CCLR/HOMEl CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajol 
CCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha .1 CONC1UNC1P0C0C1 DE" 

460 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
VOLUNTADC1EC1IMAGINACI0N" 

470 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha .1ESTEC1PR0GRAMAC1TEC1 
PERMITIRAC1 ABRIRTEC1 A" 

480 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha .1 CCTRL+91LAC1 
INFINITUDC1DELC1ESPACI0CCTRL+01." 

490 PRINT'TCTRL+81 CCTRL+91 CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajol 
CCRSR abajolCCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR izq.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
PULSAC1UNAC1TECLA" 

500 P0KE198,0 

510 GETA$:IFA$=""THEN510 

520 GOSUB5050 

.530 PRINT'TCTRL+21 CCRSR abajolCCRSR abajolCCRSR abajolCCRSR abajolCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha .1 AC1 C0NTINUAC ION, CI ENTRAR AS CI EN CI C0NTACTO" 

540 PRINT'TCRSR abajolCCRSR dcha.lCONClELClCENTROClDECHNVESTIGACIONClESPACIAL" 

550 PRINT'TCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha. 1EN CI BOSTON." 

560 PRINT'TCRSR abajolCCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
CCRSR dcha.lCCRSR dcha.l PARAC1 ELL0, CI ELC1 PROGR AMAC1 HALLARA" 

570 PRINT'TCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lLA 

CI CLAVEC1DEC1ACCESOC1AL": PRINT'TCRSR abajolCCRSR dcha.lCCRSR dcha.l 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l I 

CCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha .1 BANCO CI DE CI DATOS," 

580 PRINT'TCRSR abajolCCRSR dcha.lCCRSR dcha.lCCRSR dcha.lCCRSR dcha.l 
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CCRSR dcha.DCCRSR dcha.DCCRSR dcha .3 CCRSR dcha.DCCRSR dcha.KCRSR dcha.DY 
CDTECDLACDCOMUNICARA": PRINT'TCRSR abajoDCCRSR dcha.DCCRSR dcha.D 
CCRSR dcha.DCCRSR dcha .11 CCRSR dcha.DCCRSR dcha.] PAR AC] QUE CD PU ED AS CD 
DISPONERHDE" 

590 PRINT'TCRSR abajoDCCRSR dcha.KCRSR dcha -D CCRSR dcha.DCCRSR dcha. D 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.DCCRSR dcha. 3 
DICHAC] IN FORMAC ION .": PRINT'TCRSR abajo] CCRSR abajoD CCTRL+8D " 

600 FORR=1T040:PRINT"CCTRL+9:CSHIFT+*]CCTRL+OJ";;FORE=1T0150:NEXT:NEXT 

610 G0SUB5050 

620 PRINT"CSHIFT+CLR/H0MEKCTRL+2DCCRSR abajoDCCRSR aba joD CSHIFT+UD CSHIFT+*] 
CSHIFT+*DCSHIFT+*:CSHIFT+*:CSHIFT+*1CSHIFT+*KSHIFT+*:CSHIFT+*:CSHIFT+*] 
CSHIFT+*3CSHIFT+*:CSHIFT+*nCSHIFT+*lCSHIFT+*:CSHIFT+*lCSHIFT+*:CSHIFT+*: 
CSHIFT+*lCSHIFT+*DCSHIFT+*:CSHIFT+*KSHIFT+*]CSHIFT+*3CSHIFT+*]CSHIFT+*3 
CSHIFT+*:CSHIFT+^CSHIFT+*nCSHIFT+*3CSHIFT+*:CSHIFT+*3CSHIFT+*:CSHIFT+*: 
CSHIFT+*JCSHIFT+*3CSHIFT+*:CSHIFT+*lCSHIFT+*JCSHIFT+i:"; 

630 PRINT"CSHIFT+CLR/HOME3CCTRL+2:CCRSR aba j oD CCRSR aba joD CSHIFT+UD CSHIFT+*D 
CSHIFT+*D CSHIFT+*3CSHIFT+*]CSHIFT+*:CSHIFT+*3CSHIFT+*:CSHIFT+*KSHIFT+*3 
CSHIFT+*3CSHIFT+*nCSHIFT+*3CSHIFT+*:CSHIFT+*]CSHIFT+*]CSHIFT+*3CSHIFT+*l 
CSHIFT+*lCSHIFT+*3CSHIFT+*lCSHIFT+*3CSHIFT+*3CSHIFT+*KSHIFT+*:CSHIFT+*3 
CSHIFT+*3CSHIFT+*:CSHIFT+*:CSHIFT+*3CSHIFT+*1CSHIFT+*:CSHIFT+*3CSHIFT+*J 
CSHIFT+*DCSHIFT+*D CSHIFT+*D CSHIFT+*DCSHIFT+*D CSHIFT+ID"; 

640 PRINT"CSHIFT+BKCTRL+9D FECHACCTRL+0D :1 986 CD CD CD CD □ CD CD LI LI LI LI LI 11 LI LI LI 
11 LI LI LI 11 LI 11 CD LI LI LI LI CSHIFT+BD "; 

650 PRINT'TSHIFT+BD LI 11 LI LI CD LI LI LI LI LI CD CD LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI 
LI LI LI LI LI LI LI LI LI CSH I FT+BD "; 

660 PRINT"CSHIFT+B:CCTRL+93LUGARCCTRL+03:CENtROCJDEC:iNVESTIGACIONC:ESPACIAL 
CSHIFT+BD"; 

670 PRINT"CSHIFT+BD LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI LI L3 LI LI LI LI LI LI LI LI LI LI 
LI LI LI CD LI LI LI LI LI CSHIFT+BD 

680 PRINT'TSHIFT+BD CD CJ LI LI LI LI LI LI LI LI LI LI LI LI LI LI (BOSTON) □ □ LI LI LI LI LI LI LI 
CDCDCDCDCDCSHIFT+BD"; 

690 PRINT"CSHIFT+J3CSHIFT+*]CSHIFT+*nCSHIFT+*DCSHIFT+*]CSHIFT+*lCSHIFT+*D 

CSHIFT+*:CSHIFT+*1CSHIFT+*3CSHIFT+*XSHIFT+*:CSHIFT+*1CSHIFT+*]CSHIFT+*1 
CSHIFT+*:CSHIFT+*JCSHIFT+*nCSHIFT+*:CSHIFT+*lCSHIFT+*:CSHIFT+*3CSHIFT+*3 
CSHIFT+*3CSHIFT+*]CSHIFT+*:CSHIFT+*:CSHIFT+*]CSHIFT+*1CSHIFT+*DCSHIFT+*D 
CSHIFT+*1CSHIFT+*3CSHIFT+*1CSHIFT+*3CSHIFT+*1CSHIFT+*3CSHIFT+*:CSHIFT+*D 
CCOMM+KD"; 

700 PRINT'TCRSR abajoDCCRSR abajoDCCRSR abajoDCCRSR abajoDCCRSR abajoD 

CCRSR dcha-DCCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha .DBUSCANDOCD CLAVE CD DE CD ACCESO" 

710 PRINT'TCRSR abajoKCRSR dcha.KCRSR dcha.KCRSR dcha.DCCRSR dcha.] 

CCRSR dcha.] CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.]AL" 

720 PRINT'TCOMM+IKCRSR abajoKCRSR dcha.KCRSR dcha.KCRSR dcha-DCCRSR dcha.] 
CCRSR dcha-DCCRSR dcha.DCCRSR dcha.KCRSR dcha.DCCRSR dcha.KCRSR dcha.] 
CCRSR dcha.DCCRSR dcha.DCCRSR dcha .DBANCOC] "; "CC0MM+6DDECD "; "CCOMM+1 DDATOS" 

730 PRINT"CCTRL+2D CCRSR dcha.KCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 
CCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.DCCRSR dcha.D 
CCRSR dcha.DCCRSR dcha.D CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED 
CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED CSHIFT+ED 
CSHIFT+ED" 

740 G0T01720 
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750 F0RF=1T09:READT$(F),U$(F),ME$(F),VE$CF),TI$(F) A MA$(F),JU$(F),SA$(F),UR$CF) 

760 READNE$(F),PL$(F) / WW$(F) / NN$CF):NEXT 

770 F0RF=1T011:READMN$(F) :NEXT 

780 F0RF=1T08:READVN$(F),SS$CF),PP$(F) : NEXT 

790 FORF=1T010:READJJ$(F),UU$(F) A KK$(F) :NEXT 

800 F0RF=1T014:READTT$(F) :NEXT 

810 F0RF=1 T013 : READHH$( F) :NEXT 

820 F0RF=1T020:READVC$(F) :NEXT 

830 BL=INT(25*RND(0))+5 

840 BF=BL+60:BT=INT(40*RND(1))+1 :B5=INT(RND(1 )*60)+1 : J K=BF+BT 
850 BK$=STR$(BL) :NE$=STR$( JK) :BB$=STR$(B5) :BJ $=CHR$(BF) 
860 B$=BJ$+NE$+BK$+BB$ 

870 PRINT" CSH I FT+CLR/ HOME] CCTRL+9KCTRL+7] CCLR/HOMEKCRSR abajoKCRSR abajo] 
CCRSR aba jo] CCRSR dcha.KCRSR dcha.KCRSR dcha .KCRSR dcha.KCRSR dcha.] 
[CRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CLAVECCTRL+0] ...: CCTRL+2] ";B$ 

880 PRINT"CCRSR abajoKCRSR abajoKCRSR aba jo] CCOMM+A] CCOMM+R] CC0MM+RKC0MM+R] 
CCOMM+RKCOMM+RKCOMM+R] CCOMM+RKCOMM+R] CCOMM+R] ECOMM+R] CCOMM+R] CCOMM+R] 
CCOMM+R] CCOMM+R] CCOMM+RKCOMM+RKCOMM+R] CCOMM+R] CCOMM+RKCOMM+RKCOMM+R] 
CCOMM+R] CCOMM+RKCOMM+R] CCOMM+R] CCOMM+RKCOMM+R] CCOMM+RKCOMM+R] ECOMM+R] 
CCOMM+R] ECOMM+R] ECOMM+R] ECOMM+R] ECOMM+R] CCOMM+R] CCOMM+R] CCOMM+R] ECOMM+S] "; 

890 PRINT"ECOMM+Z] ECOMM+E] CCOMM+E] CCOMM+E] CCOMM+E] CCOMM+E] CCOMM+E] CCOMM+E] 
ECOMM+E] CCOMM+E] ECOMM+E] CCOMM+E] CCOMM+E] ECOMM+E] CCOMM+E] ECOMM+E] ECOMM+E] 
CCOMM+E] ECOMM+E] CCOMM+E] CCOMM+E] ECOMM+E] CCOMM+E] CCOMM+E] ECOMM+E] ECOMM+E] 
ECOMM+E] CCOMM+E] CCOMM+E] ECOMM+E] CCOMM+E] ECOMM+E] ECOMM+E] CCOMM+E] C COMM+E] 
CCOMM+E] CCOMM+E] CCOMM+E] CCOMM+E] ECOMM+X] "; 

900 PRINT'TCRSR abajo]ECRSR abajo]CCRSR dcha.]ECRSR dcha .3 LI □ CCTRL+9J CCTRL+4] 
CENTR0E]DEC:iNVESTI6ACI0NC]ESPACIAL" 

910 PRINT'TCRSR abajoKCRSR dcha.KCRSR dcha.KCRSR dcha.]CCRSR dcha.] 

CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
(BOSTON) ":PRINT"ECTRL+2] CCRSR abajoKCRSR abajoKCRSR abajo]" 

920 POKE198,0 

930 INPUT'TCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha .] INTRODUCEC]TUC] 
NOMBREC]";N$ 

940 IFLEN(N$)>12THEN60T0870:REM PRINT'TCRSR arribaKCRSR 

arribaKCRSR arriba]":GOT0100 
. 950 PRINT"CCRSR abajo]" 

960 INPUr'CCRSR dcha.KCRSR dcha.]CCRSR dcha.KCRSR dcha «] INTRODUCE C] LAC] 
CLAVEC]";L$ 

970 IFL$OB$THENPRINT"CCRSR arribaKCRSR arriba]":G0T0960 

980 PRINT"CSHIFT+CLR/HOME] CCRSR abajoKCRSR abajoKCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajoKCRSR abajoKCRSR abajoKCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.KCRSR dcha.] 
CCRSR dcha.] "; "O.K. ": G0SUB5050 : F2=4: G0SUB5050 

990 PRINT"CSHIFT+CLR/HOME] CCTRL+8] CCOMM+A] "; : P0KE53280,0: P0KE53281 ,0 

1000 F0RE=1 T038: PRINT"CSHIFT+*]"; :NEXT 

1010 PRINT"CC0MM+S]"; 

NOTA: Por Las obLigadas limitaciones de espacio, este instructive programa 
acabara en eL pr6ximo ndimero. 
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TIENES 
UNA GITA 



■ 


CALENDAR 10 MENSUAL 


■ 


CALENDARIO AN UAL 


■ 


RELLEMANDO EL DIARIO 


■ 


CITAS, FINANZAS, FIESTAS 


Y CELEBRACIONES 



<,No seras una de esas personas que 
siempre se olvida del cumpleanos de su 
matt re, o que se acuerda de que tiene 
una cita con eJ dentista dos dias des- 
pues de la fecha en que debiera haber 
ido? iO tal vez te sorprendes cuando 
te encuentras en tu buzon una factura, 
aun sabiendo que tiene que aparecer 
regularmente cada cuatro meses? 

El programa que vainos a ver a con- 
tinuation se ocupara de recordarte 
todo este tipo de cosas. Es muy senci- 
Ilo de usar y resulta mucho mas diver- 
tido que escribir notas en un diario, 
por lo cual no tendras excusa si te ol- 
vidas de acudir a una cita o de pagar 
un recibo. Si tienes impresora, puedes 
sacar ademas una copia impresa del 
diario, llevandola contigo para consul- 
tar tus proximos gastos cuando no ten- 
gas el ordenador a niano. 



CALENDARIO AUTOMATICO 



En realidad el programa hace dos 
cosas: es capaz de imprimir un calen- 
dario o un diario. La option mas sen- 
cilla te permite obsetvar una hoja de 
calendario de cualquier mes entre los 
anos 1.753 y 29.999. La presentation 
de dicha hoja se hace de la forma acos- 
tumbrada. con los nombres de los dias 
de la semana en la parte alta, y los nu- 
meros alineados por columnas debajo. 
El programa tiene en cuenta automa- 
ticamente los anos bisiestos y la fecha 
del Domingo de Resurrection se im 
prime debajo del mes en que cae cada 
ano. 

Aparte de considerarlo como calen- 
dario de un solo mes, puedes tener el 
calendario de un ano completo. Te re- 
sultara muy util en el caso de que ten- 
gas una impresora, ya que puedes sa- 
car una copia del calendario y ponerla 
en tu mesa de trabajo o pincharla en 
la pared, quedando la presentation 



con espacio suficiente para que pue- 
das escribir notas junto a cada una de 
las fechas. 



DIARIO ELECTRONICO 

La option de diario te permite man- 
tener el seguimiento de lo que va su- 
cediendo. Puedes hacer anotaciones 
bajo cuatro encabezamientos distin- 
tos: Finanzas, Entrevistas, Celebra- 
ciones y Vacaciones, estando cada una 
de ellas destacada con un color djfe- 
rente para que cuando utilices el dia- 
rio te resulte mas facil encontrar un 
tipo de anotacion determinado. 

La introduction de la information 
es muy sencilla, y este programa tiene 
ademas la ventaja sobre los diarios or- 
dinarios de que se ocupa automatica- 



mente de los acontecimientos regula- 
res, tales como recibos o aniversarios, 
situandolos en la fecha correcta para 
todos los siguientes meses o anos. Por 
ejemplo, si haces una anotacion bajo 
cl encabezamiento de Finanzas. el 
programa te preguntara primeramen- 
te si se trata de una operation anual, 
mensual, cuatrimestral o simplemente 
es la linica vez que se produce. Supon- 
gamos que estas tecleando los detalles 
de tus pagos mensuales. En tal caso, 
teclearias M para indicar pagos 
mensuales y a continuation el nombre 
del concepto ALQUILER, seguido 
por la fecha del primer pago. A partir 
de ese momento aparecera la palabra 
ALQUILER junto al dia correspon- 
diente de todos los meses 
siguientes. 
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Aplicaciones 



La option de Celebraciones agrupa 
todas las cosas del tipo de cumplea- 
nos, anivcrsarios, onomasticas, etc, de 
forma que pueden ser tenidos en cuen- 
ta automaticamente como sucesos 
anuales. Las Entrevistas y Vacaciones 
se tratan como acontecimientos uni- 
cos. 

El or den en que introduzcas las fe- 
chas no tiene importancia, ya se en- 
carga el ordenador de ponerlas en su 
orden y de agruparlas corrcctamcntc 
en el mes adecuado. 

En cuanto tengas introducidos los 
datos, conviene que los almacenes lo 
antes posible con la opcion SAVE del 
menu para prevenir posibles desastres 
en el programa. Los datos quedan al- 
macenados en un fichero separado Ila- 
mado DIARIO, pudiendo ser carga- 
dos, corregidos, actualizados o borra- 
dos en cualquier momento. Por eso re- 
sulta tan facil mantener tu diario al 
di'a. 



USO DEL DIARIO 



pia impresa para esc mismo mcs, pue- 
des realzar las fechas correspondien- 
tes a las entradas del diario pulsando 
una de las teclas F , E , C o V 
para cada una de las cuatro categories 
(finanzas, citas, celebraciones o vaca- 
ciones). Tambien cn este caso se pre- 
sentan con su correspondiente color, 
para que sepas a que categoria corres- 
ponde cada fecha, si bicn ncccsitas el 
diario para conocer los detalles de 
cada entrada. 

La mejor forma de utilizar el progra- 
ma depende de lo que quieras saber. 
Si quieres reeordar lo que tienes en un 
mes determinado, selecciona el diario 
de ese mes. Si por el contrario lo que 
deseas es cchar un vistazo a todo un 
ano completo para ver, por ejemplo, 
como se te presenta desde el punto de 



vista financiero, en tal caso lo mas ra- 
pido es seleccionar el calendario del 
primer mes y destacar las fechas finan- 
ciers pulsando la tecla F , pasar al 
mes siguiente y hacer lo mismo y asf 
sucesivamente hasta completar todo el 
ano. Cuando hayas utilizado el pro- 
grama te daras cuenta de la gran fle- 
xibilidad que tiene. 

INTRODUCCION DEL PROGRAMA 

El programa combinado dc calen- 
dario y agenda te ayudara a mantener 
tus asuntos en orden y a planificar el 
ano proximo. Toma ahora una de tus 
resoluciones de Ano Nuevo y empie- 
za a utilizarlo ya. 

B^29[ para Commodore-64 

1 rem**c3 significa espacio 
10 prinvcshift+clr/home:": 



En cuanto hayas introducido algu- 
nos datos en el programa, pucdes ver 
como funciona el diario para las apli- 
caciones mcnsuales. Teclea el numero 
del mes y el ano y podras ver todas las 
entradas correspondientes a ese mes y 
ese ano, incluyendo las operaciones fi- 
nanciers regulares y las celebraciones 
programadas desde meses o anos an- 
teriores. Las entradas se agrupan jun- 
tas bajo las diferentes categorias, cada 
una de ellas destacada cn los mismos 
colores que se utilizan para el calen- 
dario mensual. 

El programa espera a que pulses 
una tecla antes de presenter cada gru- 
po en la pantalla. Esto es asi en el caso L|| 
en que haya que aeomodar demasia- 
das entradas en la pantalla de una sola 
vez, por lo que se detiene para que 
tengas la posibilidad de leer la panta- 
lla antes de hacer un scrolling para la I 
presentation de nuevos datos. Si tu | 
ordenador tiene conectada una im- j 
presora, puedes optar por sacar una 
copia impresa de todos los datos. 

Si pasas ahora nuevamente a la 
opcion de calendario y sacas una co- 
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180 



190 



200 




"TRIM":CD$(3)="ANUAL": 
CD$(4)="UNIC0" 



290 



DIM DL$C3,100) :P0KE 53280 
/I: POKE 53281,1 

20 mi$= m enerocdi:d[:dcdcdfebre 
abrilcd a n □ a mayo:: dd a 

11 □C3JUNI0DGQG □ " 

30 M2$="juLioananaOA(3os 
tocd n zi a septiembreoctu 
brecdldcdnoviembrecddi 
ciembre" 

40 MN$=M$+M2$ 
50 ML$="31 28313031 3031 313031 
3031 " 

60 DN$="DOMLUNMARMIEJUEVIE 
SAB" 

70 ST$(0)="FINANCIERO":ST$ 

C1) = "ENTREVISTAS ,, 
80 ST$(2)="CELEBRACI0NES": 

ST$(3)="VACACI0NES" 
90 CD$(1)= M MENS":CD$(2)= 



100 



110 
120 
130 



CL(0)=28:CL(1)=31 :CL(2) 
=156:CL(3)=144:CL<4)=30 
:WH=5 
Z=0:DR=0 
G0SUB 2070 
PP%=0 

140 POKE 53280,6: POKE 53281, 
13:PRINT"CSHIFT+CLR/H0ME] 
"TAB(9) "CC0MM+7D CCOMM+*D 
CCTRL+9D CALENDARIO/ 
AGENDA CCTRL+OD CSHIFT+SD" 350 
PRINT TAB(10)"[CTRL+6D 
LCOMM+*D CCTRL+9D 11 LI 11 LI 
L1L1 11 MENUG 11 LI LI LI LI CD 
CCTRL+ODL"SHIFT+§D n 
PRINT TABC12) " 
C5*CRSR abajoDtCTRL+6D 
1 CALENDARIO ANUAL" 
PRINT TAB (12) " 
C2*CRSR abajoJ2 VER 



150 



160 



170 



300 

310 
320 
330 

340 



360 

370 
380 
390 
400 
410 



DIARIO" 

PRINT TABC12) " 

L"2*CRSR abajoD3 ALTERAR 

DIARIO" 

PRINT TABC12) " 
L"2*CRSR abajoD4 SALIR 
DEL PROGRAMA" 
PRINT TABC1 0) " 
C6*CRSR abajoKCTRL+9: 

cctrl+6d cshift+sd li □ li 
elige opcioncdcdcdud 
:comm+*: u 

print tab(9)"cctrl+9d 
ccomm+73 cshi ft+§d li li li. 
n n ? C3 ? n ? □ ? □ ? rj ? n rj 

C3C3nCCOMM+*] CCLR/ HOMED" 
GET A$:IF A$=""GOTO 220 
A=VAL<A$) 

IF A<1 OR A>4 GOTO 220 
POKE 53280,1 :0N A GOSUB 
290,290,1100,270 
260 GOTO 130 
270 IF DR=1 THEN GOSUB 
2170 

275 INPUT "CSHIFT+CLR/ 
HOME] CCTRL+1 1 
PRESIONA (S) ALIR 
ENU";RS$:IF RS$="M" 
THEN RETURN 

280 PRINT"CSHIFT+€LR/ 
HOMED [ C0MM+7D " : POKE 
53280,14: POKE 
53281 ,6:END 
INPUT" CSHIFT+CLR/ HOMED 
CCRSR abajoD CCRSR dcha.I] 
CCTRL+6D ESCRIBE EL A#0 
(1753 A 29999)";Y 
IF Y<1753 OR Y>29999 
GOTO 290 
YY=Y:Y=Y-1 
LY=0 

IF YY/4=INT(YY/4) THEN 
LY=1 

IF YY/100=INTCYY/100) 
THEN LY=0 

IF YY/400=INTCYY/400) 
THEN LY=1 

ND=365*Y+INT(Y/4)-INT 

(Y/100)+INT(Y/400)+1 

ED=ND+59+LY 

ND=ND-INT(ND/7)*7 

ED=ED-INT(ED/7)*7 

N=INT(YY/100)-16 

C=3+N-INT((N+1)/3)-INT 

(N/4) 
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Aplicac' 0,ics 



420 N=YY+1-INTCCYY+1 )/19)*19 
:IF N=0 THEN N=19 

430 D=C+19*N-INT((C+19*N)/ 
30)*30 

440 IF N>11 AND D>27 THEN 
D=D+1 

450 IF N<=11 AND D=29 THEN 

D=28 
460 D=D+21 
470 D=D+1 

480 X=D+ED-INT(CD+ED)/7)*7 

490 IF X<>1 THEN 470 

500 EM=3:IF D>31 THEN D=D-31 

:En=4 
510 ED=D 

520 IF A=1 THEN 60SUB 870: 
RETURN 

530 INPUT "cclr/home: 

C3*CRSR abajol 

CCRSR dcha.UQUE MES";A$: 

M=VAL(A$) :IF M<1 OR M>1 2 

GOTO 530 
540 GOSUB 550:RETURN 
550 C=5:Z=0:PP=0 
560 PRINT'TSHIFT+CLR/HOME:" 

;CHR$CWH) 
570 IF Z=0 THEN GOSUB 650 
580 IF 2=1 THEN GOSUB 1870 
590 PRINT"C4*CRSR abajoD": 

GOSUB 2280: IF K=8 THEN 

K=0:G0TO 560 
600 GOSUB 980 
610 ON K GOSUB 1600,1600, 

1600,1600,1830,1830,1850 



,2270 

620 IF K=9 THEN RETURN 
630 IF M>0 AND M<13 GOTO 560 
640 RETURN 
650 T=0 

660 ML=VAL(MID$(ML$,2*M-1,2) 

):IF H=2 THEN ML=ML+LY 
670 IF M=1 THEN T=0:GOT0 720 
680 FOR N=1 TO M-1 
690 T=T+VAL(MID$(ML$,2*N-1 , 

2) ) 
700 NEXT 

710 IF n>2 THEN T^T+LY 
720 SD=T+ND-INTC(T+ND)/7)*7 
730 PRINT" CSHIFT+CLR/ HOME] 
CCTRL+61 CCRSR abajo:" 
TAB(11)"LCTRL+9:"MID$ 
(MN$,M*1 0-9,10);" "; YY; " 
CCRSR abajo: CCTRL+31": 
PRINT TABC5); 
740 FOR N=1 TO 7: PRINT" 

CCTRL+9:"MID$(DN$,3*N-2, 

3) ;"CCTRL+0: ";:NEXT N 
750 PRINT M CCTRL+21 

CCRSR abaj 03": PRINT TAB 
(4*SD+5); 
760 X=SD 

770 FOR CD=1 TO ML 

780 GOSUB 1600 

790 D$=STR$CCD)+" " 

800 IF LENCDSX4 THEN D$=D$ 

+CHRSC32) 
810 PRINT CHR$CCC);D$;:X=X+1 
820 IF X>6 THEN PRINT: PRINT 



TABC5); :X=0 
830 NEXT CD 

840 IF M=EM THEN PRINT: PRINT 

TABC5)"CCTRL+6] 

CCRSR abajo^DOMINGO DE 

PASCUA";ED;"DE ";MID$ 

(MN$,M*1 0-9,10) 
850 PRINT 
860 RETURN 
870 C=5 

880 PRINT "CSHIFT+CLR/HOME] 
CCRSR abajoDCCRSR dcha.3 
C CTRL+91 CCTRL+63 CI LI LI LI 
CHQUIERES COPIA EN PAPEL 
(S/N)?CJ C3CJC3" 

890 GET A$:IF A$= ,m GOTO 890 

900 IF A$="S"THEN GOSUB 3060 

910 FOR M=1 TO 12 

920 GOSUB 650 

930 PRINT 

940 IF PP=0 THEN GET A$:IF 
A$=" M GOTO 940 

950 NEXT M 

960 GOSUB 2280 

970 RETURN 

980 PRINT"CCTRL+6J 

L4*CRSR dcha.DCCTRL+9] 

CCTRL+33 FCCTRL+63 CCTRL+01 

INANZAS,CCTRL+9J CCTRL+63 

ECCTRL+6JCCTRL+0:NTREVIS 

TAS,CCTRL+9:CCTRL+13V 

CCTRL+6]CCTRL+0]ACA 

CIONES" 

990 PRINT TABC4) "CCTRL+9D 



INFQRMACION Y VENTA: 



DELTABIT 

Colon, 20 
46460 SILLA 
(VALENCIA) 
Tel. (96) 120 29 25 



DELTAtir 



somittt-KinwuiE 

CULT11ML 



DISTRIBUIDORES BIENVENIDOS 

J FORMA DE PAGO: • 

©CHEQUE PERSONAL 
•CORREO 

C0NTRAREEM80LS0 
•TARJETA VISA 
•MASTERCARD 




CARTUCHO FREEZE FRAME MKIII. EL MEJOR DE LOS METODOS DE BACKUP ES AHORA TODAVIA MEJOR. NUEVA 
VERSION MKIII. 

Ei cartucho le hace VACKUPS de: CINTA A DISCO * CINTA A CINTA * DISCO A DISCO * DISCO A CINTA. FUN- 
CIONA CON: Ordenadores: C-64, C-128 y C-128/D (en modo C-64) - Unidades de disco: 1541, 1570, 1571 - Da- 
tassette: Commodore o compatible. Hace el BACKUP: Ocupando el menor espacio de disco o cinta posible. Tam- 
bien de programas MULTI PROGRAM AS. 100% de exito en el BACKUP. Salva a disco en modo TURBOSAVE, TUR- 
BOLOAD Y AUTO RUN, o a velocidad Normal (para los que tengan un turbo instalado en la unidad de disco), y en 
cinta salva a unos 2400 baudios (TURBOSAVE), TURBOLOAD Y AUTORUN. Es totalmente TRANSPARENTE, lo que 
implica que no ocupa memoria y que es totalmente compatible con cualquier software. 
IMPORTANTE: Los backups corren INDEPENDIENTEMENTE del cartucho FREEZE FRAME MKIII. ATENCION: No 
se deje influenciar por otros medios de BACKUP. El cartucho FREEZE FRAME fue ei primero en nacer y ha dado 
lugar a muchas imitaciones. Pero sigue siendo el LIDER. De exclusivo uso personal. 

GARANTIA: 6 meses. PRECIO: 11.900 ptas. (INCLUIDO: IVA + Gastos de envio). DELTABIT ofrece a sus CLIEN- 
TES la posibilidad de cambiarles el MKII por la nueva version MKIII, al precio de 4.000 ptas. (IVA + gastos, incluidos). 

INTERFACE COSMOS' THOUG: Este interface le permite hacer backups de seguridad de CINTA A CINTA de TODO 
software en soporte cassette (de CUALQUIER ordenador personal). 

Funciona con: C-64, C-128, C-128/D y dos datassettes Commodore o compatibles (o una datassete y una cassette 
de audio normal). 

100% de exito GARANT1ZAD0 en el backup. De exclusivo uso personal. Testigo acusfico de volumen regu- 
lable. GARANTIA: 12 meses. PRECIO: 4.900 ptas. (INCLUIDO: IVA + Gastos de envio). 

DIS-DISECTOR V5.0... Prestaciones: 8Min Nibbler, 3Min Nibbler, Double, Parameter Copy, Fast File Copier, Fast Format, Scratch, File Copy DiscMonitor+, index, Bam 
Allocation, View Bam, Dis Rescue, Novatrans, Disco, Fast Copy, Seiect Menu, Rename, Disc to tape, Disc Orderly, Directory Change, Unscratch, Track Reader, Disc Protect, 
Double Backup, Instalacion de Turbo-Load en disco individual. Precio: 7.300 ptas. 

QUIET DRIVE STOPS... Impiden el desalineamiento del cabezal de su unidad 1541 para siempre. Se suministran en cada pedido dos juegos (para 2 unidades 1541). De 
facil instalacion. Precio: 1.750 ptas. 

AZIMATE 3000... Cassette con programa de ayuda para alinear el cabezal de la unidad datassette. Se suministra con el destorniliador apropiado. Precio: 2.100 ptas. 
LOTTO CIPHER... Programa en disco para jugar a la loteria primitiva por ordenador. Base de Datos de los numeros e historial. La mejor y peor combinaciones. La com- 
bination que mas ha salido y la que menos. Precio: 4.300 ptas. 



Ap |icaciones 



CCTRL+5] CCCTRL+6] 
CCTRL+O] ELEBRACIONES, 
CCTRL+9]PCCTRL+0]R0XIM0, 
CCTRL+9] A CCTRL+O] NTERIOR" 
1000 PRINT TAB(4)"CCTRL+9]D 

cctrl+0]etalle,cctrl+9] 
icctrl+0]mprimir, 
cctrl+9]mcctrl+o]enu" 
1010 get a$:if a$~ m " goto 

1010 
1020 N=0 
1030 N=N+1 

1040 IF MID$("FECVPADIM n ,N/l) 

=A$ GOTO 1070 
1050 IF N<9 GOTO 1030 
1060 C=0:GOT0 1030 
1070 K=N:C=N-1 :IF C<4 THEN 

CP=C 

1080 IF Z=1 AND K<5 GOTO 

1010 
1090 RETURN 
1100 DR=1 

1110 POKE 53281 ,3:PRINT 
"CSHIFT+CLR/HOME] 
CCRSR abajoUCCRSR abajo] 
CCTRL+1]"TABC2)"EDICI0N 
DE ACONTECIMIENTOS 
DIARIOS" 

1120 PRINT TAB(2)"CCTRL+2] 

CCOMM+T] ccomm+t] ccomm+t] 
ccomm+t] ccomm+t] ccomm+t] 
ccomm+t] ccomm+t] c comm+t] 
ccomm+t] ccomm+t] ccomm+t] 
c ccmm+t] c comm+t: c comm+t] 
c comm+t: c comm+t] c comm+t] 

CCOMM+T] CCOMM+T] CCOMM+T] 
C COMM+T] C COMM+T] CC0HM+T3 
E COMM+T!! C COMM+T] C COMM+T] 
[ C0MM+T3 C COMM+T] CCOMM+T] 
CCOMM+T] CCOMM+T] CCOMM+T] 
CCOMM+T] CCRSR aba jo] 
CCRSR abajo]CCTRL+7] M 

1130 FOR N=0 TO 3:PRINT TAB 
(1DN+1 ;" n ;ST$(N)" 
CCRSR abajo]":NEXT N 

1140 PRINT TAB<12)"5 VUELTA 
AL MENU" 

1150 PRINT TAB(13)"CCTRL+1D 
CCRSR abajoXCRSR abajoD 
CCRSR abajo]ESCRIBE LA 
OPCION?" 

1160 PRINT TAB<13)"CCTRL+23 

CCOMM+T] CCOMM+T] CCOMM+T] 
CCOMM+T] CCOMM+T] CCOMM+T] 
CCOMM+T] C COMM+T] CCOMM+T] 




CCOMM+T] CCOMM+T] CCOMM+T] 
CCOMM+T] CCOMM+T] CCOMM+T: 
CCOMM+T] CCOMM+T] 
CCOMM+T] " 
1170 GET A$:IF A$="" GOTO 
1170 

1180 A=VAL(A$)-1 :IF A<0 OR A 

>4 GOTO 1170 
1190 IF A=4 THEN RETURN 
1200 POKE 53281 ,3: PRINT" 

CSHIFT+CLR/HOME] CCRSR 

aba j o] "TABC20- CLENC ST$ 

(A))*.5))"CCTRL+9]"CHR$ 

(CLCA));ST$(A)" 

CCRSR abajo] " 
1210 MX=VAL(DL$CA,0)):IF MX 

=0 GOTO 1290 
1220 FOR N=1 TO MX 
1230 A$=STR$CN)+" ":IF LEN 

(A$)<3 GOTO A$=A$+" " 
1240 PRINT A$; 
1250 FOR N1=1 TO 4:CD(N1 )= 

ASC(MID$(DL$(A,N),N1,1) 

):NEXT N1 



1260 
1270 

1280 
1290 

1300 

1310 
1320 
1330 

1340 
1350 



1360 
1370 



CD(4)=CD(4)+(ASC(MID$ 
(DL$(A,N),5,1))*256) 
PRINT CD$(CD(1));" "; 
STR$CCD(2)); n ";STR$ 
CCD(3));" ";STR$(CD(4)) 

PRINT MID$(DL$(A,N),6) 

:NEXT N 

PRINT TABC9) " 

CCRSR abajo] ( A)#ADE / (B) 

ORRA,(M) ENU" 

GET A$:IF A$="" GOTO 

1300 

IF A$="M" 
IF A$="A" 
IF A$="B" 
1560 

GOTO 1300 
PRINT"CCRSR abajo] 
CCRSR abajo]CCRSR abajo] 
EVENTO (16 LETRAS 
MAXIMO) " 
INPUT A$ 

PRINT "CSHIFT+CLR/HOME] 
CCRSR abajo] CCTRL+9]" 
TABC12) "ENTRADA DE 



GOTO 1110 
GOTO 1350 
AND MX>0 GOTO 



INPUT 27 



Aplicaciones 



FECHASCCRSR abajol 
CCRSR abajoD" 
1380 INPUT'CCRSR dcha-3 
CCRSR dcha.UCCRSR 
dcha.] A#0CCRSR 
dcha.D**;Y:IF Y 
<1753 OR 
Y>29999 GOTO 
1380 



1390 




INPUT'TCRSR dcha.D 
CCRSR dcha.UCCRSR dcha.3 
MESCCRSR dcha.3'*;M:IF M 
<1 OR M>12 GOTO 1390 
LY=0 

IF M=1 AND Y/4-INTCY/4) 
=0 THEN LY=1 
INPUT'TCRSR dcha.3 
CCRSR dcha.JTCRSR dcha. 3 
DIACCRSR dcha.J"";D:IF D 
<1 OR D>VAL(MID$(ML$,M* 
2-1,2))+LY GOTO 1420 
IF A=0 GOTO 1480 
FR=4:IF A=2 THEN FR=3 
MX=MX+1 :DL$(A,0)=STR$ 
CMX):Y9=INT(Y/256):Y8= 
Y-(Y9*256) 

DL$CA,HX)=CHR$(FR)+CHR$ 
CD)+CHR$(M)+CHR$CY8)+ 
CHR$(Y9)+LEFT$CA$,16) 
GOTO 1200 

PRINT'TCRSR abajoD 
CCRSR abajcGCCRSR abajoU 
CCOMM+1]CM)ENSUAL,(T) 
RIMESTRAL,CA)NUAL,(U) 

NICO" 

FR=0:GET X$:IF X$="" 
GOTO 1490 

THEN FR=1 
THEN FR=2 
THEN FR=3 
THEN FR=4 



X$="M" 
X$= ,r T" 
X$='*A" 

x$="ir 



IF 
IF 
IF 
IF 

IF FR=0 GOTO 1490 
GOTO 1450 
PRINT'QUE NUMERO": 



INPUT 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 



En el sorteo conrespondiente al numero 13 entre quienes escribisteis mandando vuestros votos a LOS 
MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



Manuel Martinez Fajardo 
Miguel Frau Riera 
Francisco Montoro Albiach 
J. Miguel Rodriguez Rodriguez 
Laureano Royo Sirvent 
J. Antonio Segovia Morales 
Josep M. a Montragull Llenas 
Ruben Garcia Libran 
I. Jose Sanchez Pescador 
Fernando Morago Casero 



Albacete 

P. de Mallorca (Baleares) 
Valencia 

La Laguna (S. C. de Tenerife) 

Elda (Alicante) 

Madrid 

Vila Rodona (Tarragona) 
Ponferrada (Leon) 
Valencia 
Madrid 



Leader Board 

Psi. 5 T. Company 

Spitfire 40 

Cauldron II 

Skyfox 

Skyfox 

Commando 

Commando 

Hardball 

Uridium 
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A p|icaciones 



A$:X=VAL(A$) 
1570 IF X<1 OR X>MX GOTO 
1560 

1580 FOR N=X+1 TO MX:DL$(A, 
N-1 )=DL$( A,N) :NEXT N 

1590 DLS(A,0)=STR$CMX-1) : 
GOTO 1200 

1600 IF Z=1 THEN RETURN 

1610 IF C>3 THEN CC=WH: 
RETURN 

1620 IF M=EM AND CD=ED THEN 

CC=CL(4> : RETURN 
1630 MX=VAL(DL$CC,0)) 
1640 IF MX=0 THEN CC-WH: 

RETURN 
1650 LX=0 
1660 LX=LX+1 

1670 CD(2)=ASC(MID$(DL$CC, 

LX),2,D) 
1680 IF CDOCDC2) THEN CC=WH 

:GOTO 1710 
1690 GOSUB 1740 
1700 IF FL=1 THEN CC=CL(C): 

RETURN 
1710 IF LX<MX GOTO 1660 
1720 CC=WH 
1730 RETURN 
1740 FL=0 

1750 FOR N1=1 TO 4:CD(N1)= 
ASC(MID$(DL$(C,LX),N1, 
1)) 

1760 NEXT N1 :CD(4)=CD(4)+ 

(ASC(MID$(DL$(C,LX),5, 
1))*256) 

1770 IF CD(4)>YY THEN FL=0: 
RETURN 

1780 IF CD(1)=1 AND M>=CD(3) 
THEN FL=1 : RETURN 

1790 IF CD(1)=2 AND M>=CD(3) 
AND M-CD(3)-INT((M-CD 
(3))/3)*3=0 THEN FL=1 : 
RETURN 

1800 IF CD(1)=3 AND CD(3)=M 
THEN FL-1 : RETURN 

1810 IF CD(1)=4 AND CD(3)=M 
AND CD(4)=YY THEN FL=1 

1820 RETURN 

1830 IF K=6 THEN M=M-1 : 

RETURN 
1840 IF K=5 THEN M=M+1 : 

RETURN 

1850 if 1=1 then z=0: return 
1860 if z=0 then z=1 : return 
1870 if pf>=0 then print" 
cshift+clr/home:" 



1880 PRINT" DIARIO PARA "; 
MID$(MN$,M*1 0-9,10) : 
PRINT 

1885 IF MO EM THEN 1910 
1890 PRINT" FECHA :";STR$ 
CED) 

1900 PRINT" EVENTO : DOMINGO 

de pascuaccrsr aba jo] " 

1910 ML=VAL(MID$(ML$,2*M-1,2 

)>:IF M=2 THEN ML=ML+LY 
1920 C=CP:IF C>3 THEN C=0 
1930 PRINT TAB(20-CLEN(ST$ 

CC))*.5)) M CCTRL+9]"CHR$ 

CCL(C));ST$(C) 
1940 MX=VAL(DL$(C,0)) 
1950 IF MX=0 GOTO 1990 
1960 FOR CD=1 TO ML: FOR LX=1 

TO MX:CD(2)=ASC(MID$ 

(DL$(C / LX>,2,1)) 
1970 IF CD=CD(2) THEN GOSUB 

2010 
1980 NEXT LX,CD 
1990 RETURN 
2010 GOSUB 1740 
2020 IF FL=0 THEN RETURN 
2030 A$=STR$(CD) :IF LENC A$) 

<2 THEN A$=A$+" " 
2040 B$=DL$CC,LX) 
2050 PRINT A$;CHR$(CLCO); 

RIGHT$CB$ / LENCB$)-4) 
2060 RETURN 



2070 print'tshift+clr/home: 

CCRSR dchaJCCRSR dcha.3 
[CRSR dcha.HCCRSR abajoD 
[CTRL+9KCTRL+43HAY 
ALMA C EN ADO ALGUN DIARIO 
( S/N) ?CCTRL+1 ] CCOMM+*: " 

2080 PRINT'TCRSR dcha.H 

CCRSR dcha.HCCRSR dcha-J 
[C0MR+*3CCTRL+9J 
C34*ESPACI0]CCRSR 
aba j ol " 

2090 GET A$:IF A$="" GOTO 
2090 

2100 IF A$="N" THEN RETURN 
2110 IF A$= M S'* GOTO 2130 
2120 GOTO 2090 
2130 GOSUB 3000:0PEN1 ,DV,0, 
NM$ 

2140 FOR 00 TO 3:INPUT#1 , 

DL$(C / 0) :MX=VALCDL$CC,0 
)) :IF MX=0 GOTO 2160 

2150 FOR N=1 TO MX:INPUT#1 , 
DL$(C,N) :NEXT N 

2160 NEXT CiCLOSE 1 : RETURN 

2170 PRINT'TSHIFT+CLR/HOME] 
CCTRL+93 CCTRL+13 ALMACE 
NAS DIARIO ACTUALIZADO 
(S/N)?" 

2180 GET A$:IF A$="" GOTO 
2180 

2190 IF A$="N" THEN RETURN 





2200 
2210 

2220 
2230 
2240 
2250 
2260 
2270 

2280 

2290 
3000 



3010 



3020 



3030 



IF A$<>"S M GOTO 2180 
GOSUB 3000:OPEN 1,DV,1, 
NM$ 

FOR C=0 TO 3 

MX=VAL<DL$<C,0>) 

FOR N=0 TO MX 

PRINT#1 ,DL$( C,N) 

NEXT N,C:CLOSE 1 : RETURN 

PP=1 :0PEN1 ,4:CMD1 : 

RETURN 

IF PP=1 THEN PRINT#1, 

! ' ":CL0SE1 

PP=0:RETURN 

NM$="": INPUT "NOHBRE 

DEL FICHERO";NM$:IF NM$ 

-""THEN 3000 

DV=1 : INPUT "(D)ISCO 

(C)INTA";DV$:IF DV$="D" 

THEN DV-8 

PRINT TABC13) E1 

CCRSR abajoUCCRSR abajo: 

CCTRL+9J PRESIONAR UNA 

TECLA":POKE 198,0:WAIT 

198,1 :POKE 198,0 

PRINT'TSHIFT+CLR/HOMEU" 

: RETURN 



Al ejecutar por prim era vez el pro- 
grama, te preguntara si ya tienes al- 
macenada alguna lista en la agenda. 
De momento no tienes nada, por lo 
que tienes que responder tecleando 
N . El programa pasa entonces a re- 
presentar el menu principal, que cons- 
ta de cuatro opciones; 



1. - Calendario anual 

2. - Consultar agenda 

3. - Modificar agenda 

4. - Salir del programa 

Puedes consultar el calendario 
anual o mensual sin tener que intro- 
ducir datos, por lo que puedes empe- 
zar por hacer esto. 

M1RANDO EL CALENDARIO 

Si seleccionas la opcion 1, puedes 
consultar un calendario valido para 
cualquier mes o ano dentro de los Ii- 
mitcs del programa. Dichos h'mites 
van desde el ano 1.753, cuando empe- 
zo el moderno calendario gregoriano, 
hasta el ano 29.999, jSuponemos que 
sera suficiente para ti! Por cierto, el 
mes debe scr introducido en forma de 
numero (de 1 a 12); el programa no 
aceptara palabras. 

Si tienes una impresora conectada 
con tu ordenador, tienes la opcion de 
sacar una copia del calendario impre- 
sa en papel; en caso contrario te apa- 
recera el calendario en la pantalla. En 
la parte superior se presentan el nom- 
bre del mes y el ano. Mas abajo apa- 
recen los dias y las fechas. La semana 
se presenta empezando por el domin- 
go. La fecha del Domingo de Resu- 
rrection se calcula automaticamente y 
se presenta abajo, siempre que caiga 
dentro del mes que se esta represen- 
tando (marzo o abril). 



Mientras consultas el calendario 
mensual, hay varias cosas que puedes 
hacer; al fondo de la pantalla tienes 
las diferentes opciones. Si pulsas M 
vuelves al menu principal. Las teclas 
L y N te permiten avanzar o re- 
troceder un mes. 

Las otras teclas que hacen algo son 
F , E , C y V , que se utilizan 
para las entradas correspondientes a 
Finanzas, Entrevistas, Celebraciones 
y Vacaciones. Pero no te mostraran 
nada si las pulsas ahora, hasta que ha- 
yas realizado algunas entradas por me- 
dio de las siguientes opciones. 

Ademas tienes la posibilidad de pul- 
sar la tecla S para cambiar desde el 
calendario mensual a la agenda. 

ESCRIBIENDO EN LA AGENDA 

Si eliges la opcion 2 aparecera un 
diario o agenda mensual. Pero prime- 
ro tienes que efectuar algunas entra- 
das. Para ello tienes que seleccionar la 
opcion elegida seguida de alguna de 
las categories. 

Sea cual sea la opcion que elijas, 
pulsa A para afiadir una cntrada 
cualquiera, D para destruirla y M 
para volver al menu principal. 

Tal como vimos antes, la section 
llamada Finanzas ofrece una election 
para realizar entradas mensualmente, 
trimestralmente, anualmente o para 
realizar una anotacion aislada. Para 
seleccionar una de las anteriores op- 
ciones, pulsa respectivamente M , 
T , A o S . A continuation el 
programa te pedira que introduzcas un 
nombre o sentencia de hasta 20 letras 
para describir el tipo de anotacion, se- 
guido de la primera fecha significati- 
va. Para una entrada que se repite, 
esto ocurriria la primera vez que se 
realiza una anotacion, por ejemplo el 
pago del primer cheque la primera vez 
que cobres un sueldo. El programa se 
ocupa de cubrir automaticamente los 
detalles para los proximos meses o 
afios. Las Entrevistas y las Vacaciones 
se tratan como sucesos aislados, pero 
las Celebraciones se consideran anua- 
les, por lo que puedes usar esta opcion 
para los cumpleanos y demas aniversa- 
rios. 
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BUENO 

COMO EL ORO 



Vive Jos riesgos y las satisfacciones 
de los grandes negocios con el juego de 
la mina de oro de INPUT. ^Estas se- 
guro de poseer la habilidad y el buen 
juicio necesarios para adoptar las de- 
cisiones correctas y actuar consecuen- 
temente con ellas? 

La Mina de Oro es un juego de es- 
trategia comercial en el que tu haces 
el papel del propietario de una empre- 
sa minera. Tu mision es hacer que la 
compama prospere to mejor posible. 
Durante el desarrollo del juego se te 
iran presentando constantemente una 
serie de opciones entre las que debes 
elegir, de tal manera que los destinos 
de la compama dependen de tu habi- 
lidad para tomar decisiones prudentes 
e imaginativas. 

Al igual que los juegos de a ventu- 
res., los de estrategia en los negocios 
generalmente se escriben integramen- 
te en BASIC, no siendo necesaria la 
alta velocidad del codigo maquina. 
Ademas, debido a que no requieren 
grandes secciones de texto, es relati- 
vamente sencillo escribirlos en versio- 
nes para ordenadores que no tengan 
mucha memoria. 

En este caso hemos adornado el 
juego de la Mina de Oro anadiendole 
unos graficos que muestren el progre- 
so de la mina, con lo cual aumentan 
bastante las nccesidades de memoria, 
si bien todavia cabe el programa en el 
Vic-20. 

El programa es con todo relativa- 
mente largo, por lo que lo hemos di- 
vidido en dos partes. En este artfculo 
veremos la forma de establecer el nu- 
cleo del juego y en el proximo vere- 
mos algunas de las rutinas que necesi- 
tas para que el juego se pueda real- 
mente practicar. 

Cuando hay as introducido todo el 
listado que figura mas adelante, haz 
un SAVE para guard arlo hasta la pro- 
xima vez. 



DESCRIPCION DEL JUEGO 



Al empezar el juego, tus dos posc- 
siones son la empresa minera y 2 mi- 
llones de dolares en efectivo. Tienes 
que invertirlos inteligentemente en la 
exploracion del metal precioso. El ob- 
jetivo del juego es ganar tanto dinero 
como sea posible en 30 pasadas. Pue- 
des jugar tu solo o contra un oponen- 
te que tenga el control de una compa- 
fua rival. 

En cada pasada se te presentan unas 
cuantas alternativas entre las que ele- 
gir. Antes de empezar con las labores 
de mineria, debes encontrar un empla- 
zamiento adecuado, por lo que has de 
invertir para tener un informe de pros- 
pecciones. Con el informe anterior, 
podras estimar tus posibilidades de en- 
contrar oro, su profundidad probable 
y la cantidad esperada. Tienes que de- 
cidir si mercce la pena o no iniciar la 
explotacion. 

La mineria es muy cara, por lo que 
podrfas decidir inversiones en investi- 
gation y desarrollo de nuevos equipos 
que te permitan reducir los costes. Tal 
vez es mejor iniciar directamente las 
excavaciones, solo tu puedes decidir. 

Si das comienzo a las excavaciones, 
hay una representation grafica que te 
permitira apreciar el progreso de la 
mina. Si no se encuentra oro, puedes 
elegir entre continuar excavando o 
abandonar la mina e iniciar un nuevo 
trabajo. 

A lo largo del desarrollo, hay otros 
dos facto res que entraran en juego. 
Cuando encuentres oro, puedes elegir 
entre almacenarlo en tus camaras aco- 
razadas o venderlo en el mercado de 
metales preciosos. Puede que sea ra- 
zonable conservarlo, en el supuesto de 
que no necesites dinero urgentemen- 
te, esperando hasta que alcance un 
precio mas ventajoso; el precio del oro 
esta fluctuando durante todo el juego. 



■ 


UN JUEGO DE ESTRATEGIA 


EN LOS NEGOCIOS 


■ 


DESCRIPCION DEL JUEGO 


■ 


INGRESOS Y GASTOS 


■ 


LA RUTIN A DE R0B0 



Pero ten cuidado, porque hay ladro- 
nes de oro y cuanto mayor cantidad 
tengas almacenada, mas tentador es su 
premio. 

En la segunda parte de este artfcu- 
lo veremos con mayor profundidad los 
trabajos asociados con el juego. Pero 
ahora teclea ya la primera parte del 
programa. 

para Commodore-64 

1 POKE 52,48: POKE 56,48:CLR 
PRINT'TSHIFT+CLR/HOMED "TAB 
C3) "ESTOYDDEFINIENDOn 
LOS CD" GRAFICOS, CIIESPERA" 

2 GOSUB 60000 

3 POKE 53272,28 

5 POKE 53280,7:P0KE 53281,7: 
PRINT'TSHIFT+CLR/HOMEJ 
[CTRL+13" 

10 PR INT" ECLR/ HOMED 

LCRSR abajoHECRSR abajoD 
CCRSR abajoXCRSR abajo3 
CCRSR abajoUCCRSR abajo3 
CCRSR abajoHECRSR abajoD 
CCRSR abajol CCRSR abajoU" 
;TAB(5);"CUANT0SC]JUGAD0 
RESCDC1 C]0C32)?":GET A$: 
IF A$="" THEN 10 

20 IF A$<"1 n OR A$>"2" THEN 
10 

30 P=VAL(A$) :N0=P 
40 DIM A(2,6),C(2,5) :ER= 
10000 

50 RC1)=0:RC2)=0:A(1 / 1) = Cin 
CD CJ2000000 : A(1 ,2 ) =200000 
0:AC2,1)=2000000:AC2,2)=2 
000000 

52 AC1,3)=0:A(2,3)=0:AC1,4)= 
1 000000: AC2,4)=1 000000: A 
C1,5)=0:AC2,5)=0:AC1,6)=0 

54 A(2,6)=0:PRINT"CSHIFT+CLR 
/HOMED " 

70 FOR N=1 TO P:PRINT"N0MBRE 
C]DELCDJUGAD0R"N; : INPUT 
A$(N) :A$CN)=LEFT$(A$(N) , 
10) :NEXT 

200 FOR N=1 TO 30: FOR M=1 TO 
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NO 

202 POKE 53280/1 : POKE 53281, 
1 : PRINT"CCTRL+1 1 CSHIFT+ 
CLR/HOMEJ" 

205 FOR F=54272 TO 54296: 
POKE F,0:NEXT 

210 PRINT'TCTRL+9D[:CTRL+1: 
"N;TABC1 0) "G CUMIN AG BE 
GOROGCCRSR aba] oJ [CTRL 
+71" 

220 PRINT TAB(16);A$(1); :IF 
N0=2 THEN PRINT TABC28); 
A$C2) 

230 PRINT:PRINT"CCRSR abajoll 
tCTRL+SDGRECURSOSG 
TOTALES"; TABd 9) ; AC1 ,1 ) 
;:IF N0=2 THEN PRINT TAB 
(27);A(2,1); 

240 PRINT: PR I NT" GEN G D INERO 
";TAB(19);A(1,2);:IF NO= 
2 THEN PRINT TAB(27);A( 
2,2); 

250 PRINT:PRINT"EN ORO KG"; 

TAB(19);AO,3);:IF N0=2 
THEN PRINT TAB(27);A 
(2,3); 

260 PRINT: PR INT" G COSTOn 
MINEROSG";TAB(19);A<1, 
4);: IF NO=2 THEN PRINT 
TAB(27);A<2,4); 

270 PRINT:PRINT"GNUMEROGDE 
GMINEROS";TAB(19);A(1,5) 
;:IF N0=2 THEN PRINT TAB 
(27);A(2,5); 

280 PRINT:PRINT"G 

PRO FUNDI D AD G"; TAB (19); A 
C1,6);:IF NO=2 THEN 
PRINT TABC27);A(2,6); 

300 PRINT:PRINT"CCRSR abajoU 

CCTRL+6J LCTRL+9HPRECI0 

□ ACTUAL:-": 

PRINT'^'ER^GPORGKILO 

GDEGORQ" 
400 PRINVCCRSR aba j o: CCTRL 

+7]>CCRSR dcha.lCCRSR 

dcha.3r.CRSR dcha.]";A$ 

CM) 

500 PRINVCCRSR abajo] CCTRL+ 
1 3CCTRL+931 ESHIFT+F3C1- 
GBUSGUEDAGGYG 
DESARROLLOG G G G G G 
GGGGG" 

510 print m cctrl+9]2:shift+f: 
g-gexploracionesgyc: 



GANANCIASG G G G G G G 
GG" 

520 PRINT"LCTRL+9]3ESHIFT+f: 
G-GAUM.GDEGLAG 

profundidadgeng200G 

MTSG" 

530 print":ctrl+9]4i:shift+r: 
g-gcambiogdelgorog 
engdolaresg gp g li li 
nan" 

540 PRINT"CCTRL+935CSHIFT+F3 
G-GPASOGGGGG G LI 

G GGGG nnnnnn 
nnnnnn nnnnn 

G" 

550 PRINT'TCRSR aba j oil CCTRL+ 
9] LCTRL+33 INTRODUCE:: TU 
GELECCION":P0KE 198,0 
600 GET I$:IF 1$="" THEN 600 
610 IF I$<"1" OR I$>"5" THEN 
600 

620 ON VALU$) GOSUB 1000, 

2000,3000,4000 
700 IF A(M,2)<0 THEN 7000 
710 ER=ER+INTCRND(1)*1000) 

-200 
718 J=0:L=0 

720 IF INTCRND(1)*1600)-A(M, 
3X0 THEN GOSUB 900 

740 ACM,1 )=A(M,2)+ACM,3)*ER 

750 POKE 53280,1 :P0KE 53281, 
1 :PRINT"CCTRL+1HSHIFT+ 
CLR/HOMEl" 

790 NEXT M,N 

810 POKE 53280,3: POKE 53281, 
3:PRINT"CCTRL+1J[SHIFT+ 
CLR/HOME3 " 

820 PRINT'TCRSR abaj cO CCRSR 
abajolHCRSR abajoll CCRSR 
abajolCCRSR abajoll CCRSR 
abajo3 M ;TAB(15); ,, CCTRL+ 
33 CCTRL+93 FINALC3DEG 
JUEGOCCRSR abajo3CCRSR 
abajo3 CCRSR abajo3 CCTRL+ 
1]" 

830 PRINT"TUG RIQUEZAG TOTAL 
C3DEG";A$(1);TAB(18);" 
GESGDEG"AC1,1) 

840 IF N0=2 THEN PRINT TAB 
(5) "RIQUEZAGTOTALGDEG 
;"A$C2);TAB(18);"C3S0N$" 
A<1,2) 

850 PRINT: PRINT: PR INT "CCTRL+ 
33 CCRSR dcha.3CCRSR 
dcha.HCRSR dcha.3CCTRL+ 



93pulsagespaciogparag 
volvergagempezarg" 

860 POKE 198,0 

870 IF PEEKC197)=64 THEN 

870 
880 RUN 3 

900 POKE 53280,2:POKE 53281, 
2 :PRINT"CSHIFT+CLR/HOME3 
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CCTRL+83" 

905 JK=INT(RNDC1)*100)+50:IF 
JK>ACM,3) THEN JK=A(M,3) 

910 PRINT'TCRSR abajoltCRSR 
abajoHCRSR abaj o_l CCRSR 
abajoKCRSR abajoD CCRSR 
abajoXCRSR abajo^CCRSR 
abaj oil ";TAB(1 2) "CCTRL+93 



920 PRINT TABC9) "CCRSR abajo 

:lctrl+23han sido 

R0BAD0S"JK"KGt:iDEi::OR0" 
925 ACM,3)=A(M,3)-JK:A(M,1)= 

A(M,1)-(JK*ER) 
930 FOR F=0 TO 24: POKE 54272 



+F,0:NEXT 
940 POKE 54286,5: POKE 54290, 

16:P0KE 54275,1 :P0KE 

54296,143:P0KE 54278,240 
950 POKE 54276,65 :FR=5389: 

FOR T=1 TO 150 
960 FQ=FR+PEEKC54299)*9.5:HF 

=INT( FQ/256) :LF=FQ~HF* 
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256 z POKE 54272,LF 
965 POKE 54273 / HF:NEXT:P0KE 
54296,0 

970 POKE 53280,1 :P0KE 53281, 
1 :PRINT"CSHIFT+CLR/H0ME3 
CCTRL+1 3 "RETURN 

■iSSjl para Vic-20 

1 REM**C3SIGNIFICA ESPACIO 
5 POKE 36879,25: PRINT"CSHIFT 
+CLR/H0ME3CCTRL+33":P0KE 
36878,15 
10 PRINT"CCLR/HOME3CUANTOSC3 
JUGADORES":PRINT" 
CCRSR dcha.3CCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.3 
<1C30C32)":GET A$:IFA$="" 
THEN 10 
20 IF A$<"1"0RA$>"2"THEN10 
30 P=VAL(A$) :NO=P 
40 DIM AC2,6),C(2,5):ER= 
10000 

50 R(1)=0:R(2)=0:A(1,1)= 
2000000:AC1 ,2)=2000000: 
AC2,1)=2000000:AC2,2)= 
2000000 

52 AC1,3)=0:AC2,3)=0:A(1,4)= 
1 000000 : A(2 ,4) =1 000000 : A 
(1,5)=0:A(2,5)=0:A(1,6)=0 

54 A(2,6)=0:PRINT" 
CSHIFT+CLR/H0ME3 " 

70 FOR N=1 TO P: PRINT" 

CCRSR abajo3CCRSR abajo3 
CCTRL+63N0MBREC3 JUGADOR 
CCTRL+73 "; N : INPUT ASCN): 

A$CN)=LEFT$(A$(N),9) : 
NEXT 

200 FOR N=1T0 30: FOR M=1 TO 
NO 

205 FOR F=54272 TO 54296: 

POKE F,0:NEXT 
210 PRINT"CSHIFT+CLR/HOME3 

CCTRL+13CCTRL+93"N;TAB 

(4)'T3MINAC3DEC30R0CJ 

CTRL+73" 
220 PRINT"CCRSR dcha.3 

CCTRL+93"A$(1);:IF N0=2 

THEN PRINTTAB(11);A$(2) 
230 PRINT: PRINT" CCTRL+33T"; 

A(1,1);:IF N0=2 THEN 

PRINT TAB(11);A(2,1) 
240 PRINT:PRINT"C"AC1,2);: 

IF NO=2 THEN PRINT TAB 

(11);A(2,2) 
250 PRINT:PRINT"G"A(1,3);: 



IF N0=2 THEN PRINT TAB 

C11);A(2,3); 
260 PRINT:PRINT"M";A(1,4);: 

IF NO=2 THEN PRINT TAB 

<11);AC2,4); 
270 PRINT:PRINT"N"A(1,5);: 

IF N0=2 THEN PRINT TAB 

C11);A<2,5); 
280 PRINT:PRINT"D"A(1,6);: 

IF NO=2 THEN PRINTTAB 

C11);AC2,6); 
300 PRINT:PRINT"CCTRL+63 

PRECI0C3 ACTUAL: "ER;"$C3 

P0RC3KIL0" 
400 PRINT"CCRSR dcha.3 

CCTRL+93 CCTRL+73 ";A$(M) 

500 PRINT"CCTRL+53CCTRL+931 

CCTRL+03 CCTRL+1 3BUSQUEDA 

,DESARROLLO" 
510 PRINT"CCTRL+53 CCTRL+932 

CCTRL+03 CCTRL+1 3 EXPLORA 

CION,GANANCIA ,r 

520 print"cctrl+53cctrl+933 
cctrl+03 cctrl+1 3 aum.c3de 
profundidadc3enc32O0C3 

MTSC3" 

530 PRINT"CCTRL+53 CCTRL+934 

CCTRL+03 CCTRL+1 3 CAMBI0C3 

OROC3AC3DOLARES" 
540 PRINT"CCTRL+53 CCTRL+935 

CCTRL+03 CCTRL+1 3 PASO" 
550 PRINT"CCTRL+93CCTRL+33 

INTRODUCEC3TUC3ELECCION" 

:P0KE198,0 
600 GET 1$: IF I$=""THEN 600 
610 IF I$<"1" OR I$>"5" THEN 

600 

620 ON VAL(I$)GOSUB 1000, 

2000,3000,4000 
700 IF ACM,2)<0 THEN 7000 
710 ER=ER+INT(RND(1)*1 000) 

-200 
718 J=0:K=0 

720 IF INT(RND(1)*1600)-A 
(M,3)<0 THEN GOSUB 900 

740 ACM,1)=A(M,2)+A(M,3)*ER 

750 PRINT"CCTRL+1 3 CSHIFT+ 
CLR/H0ME3 " 

790 NEXT M,N 

810 print"cctrl+13 
cshift+clr/home:" 

820 PRINT"CCRSR abajoJ 

CCRSR abajo3CCRSR abajo3 
CCRSR abajo3CCRSR abajo3 
CCRSR abajo3CCRSR dcha.3 



CCRSR dcha.3CCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.3 
CCTRL+33 CCTRL+93 FINALC3 
DELC3 J UEGO CCTRL+93 
CCTRL+93 CCTRL+93 CCTRL+1 3 " 

830 print"tuc3riquezac3total 
c3dec3":printa$(1)"esc3 

DE"A(1,1) 
840 IF N0=2THEN PRINT TABC5) 

"RIQUEZAC3TOTALC3DEC3 " 

PRINT A$<2)"C3S0N$" 

A(1,2) 
850 PRINT'TCRSR abajo3 

CCRSR abajo3 CCTRL+33 

CCTRL+93 PULSAC: ESPACIOC3 

PARAC3VOLVERC3AC3 

EMPEZARC3" 
860 POKE198,0 

870 IF PEEK(197)=64 THEN 870 
880 RUN 

900 print"cshift+clr/home3 

CCTRL+33 " 
905 JK=INT(RND(1)*100)+50: 
IF JK>A(M,3)THEN JK=A 
(M,3) 

910 PRINT"*CCRSR abajo3 

CCRSR abajo3CCRSR abajo] 
CCRSR abajo3CCRSR abajo3 
CCRSR abajo3CCRSR abajo] 
CCRSR abajolCCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.3 
CCTRL+93 CCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.3 
CCRSR dcha.3CCRSR dcha.3 
C3C3C3HC3C3C3UC3 C3C3RC3 
C3C3TC3C3C30" 

915 FOR DE=1T0100:P0KE 36875 
,200+SIN(DE)*10:NEXT DE; 
POKE 36875,0 

920 PRINT"CCRSR abajo3 

CCRSR aba j o3 CCTRL+73HAN 
C3SIDOC3ROBADOS'\JK"KG": 
PRINT"DEC30R0" 

923 FOR DE=1 TO 3000: NEXT 

925 A(M,3)=ACM,3)-JK:A(M,1) 
=A(M,1)-CJK*ER) 

930 FOR F=0 TO 24: POKE 54272 
+F,0:NEXT 

940 POKE 54286,5: POKE 54290, 
16: POKE 54275,1: POKE 
54296,1 43: POKE 54278,240 

950 POKE 54276,65:FR=5389: 
FOR T=1 TO 150 

960 FQ=FR+PEEK<54299)*9.5: 
HF=INT(FQ/256):LF=FQ-HF* 
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256:P0KE 54272, LF 
965 POKE 54273,HF: NEXT: POKE 

54296,0 
970 PRINT" ESH I FT+CLR/ HOME] 

CCTRL+13":RETURN 
1000 RETURN 
2000 RETURN 
3000 RETURN 
4000 RETURN 

En el pro grama del Commodore 64, 

las lineas 1 a 5 definen los graficos del 
juego, con la subrutina que empieza 
en la linea 60000 que define la explo- 
tacion de la cabecera de mina y las ex- 
cavaciones. En el caso del Vic 20 ne- 
cesitas 3K de RAM; ademas hemos 
renunciado a los graficos de alta reso- 
lucion en favor de los bloques graficos 
que lleva incorporados la maquina. La 
linea 5 de ambos programas define los 
colores de pantalla y borra la misma. 
La linea 10 pregunta el numero dc ju- 
gadores, mientras que la linea 20 exa- 
raina si has tecleado un 1 o un 2. La 
linea 30 asigna los valores de P y NO 
con arreglo al niimero de jugadores 
que hayas tecleado. 

En la Knea 40 se dimensionan dos 
matrices y se asigna el precio de mer- 
cado del oro, ER. En las lineas 50 a 
54 se inicializan las matrices y se bo- 
rra la pantalla. Los valores almacena- 
dos en la matriz R informan al progra- 
ma de si se han iniciado o no los tra- 
bajos de mineria en el sitio que en ese 
momento esta considerando el juga- 
dor; cuando el valor de algun elemen- 
to es cero, quiere decir que todavia no 
se ha iniciado la mineria en ese lugar. 
El primer par de elementos de la ma- 
triz A, contiene los activos totales de 
cada jugador, el segundo par contiene 
las cantidades en efectivo de cada ju- 
gador, el tercer par contiene las can- 
tidades de oro de cada jugador, el 
cuarto par contiene los costes de mi- 
neria, el quinto contiene el numero de 
minas y el sexto contiene la profundi- 
dad de la mina actual, La linea 70 in- 
vita al jugador o jugadores a introdu- 
cir su nombre o nombres, almacenan- 
do su respuesta en la matriz A$. 

El programa contiene un par de bu- 
cles FOR ... NEXT, que empiezan en 
la lmea 200 y terminan en las lineas 



790 y 800. Estos son los bucles que de- 
finen el menu principal de opciones y 
la presentation de los ingresos de la 
compania debidos a la mineria, los 
costes de extraction, etc. 

La variable N cuenta el numero de 
pasadas realizadas por el jugador. La 
variable NO sirve para asegurarse de 
que ambos jugadores llegan hasta 30 
pasadas. Mas adelante el programa 
utiliza estas mismas variables para ase- 
gurarse de que se presentan los acti- 
vos de ambos jugadores, etc. 

En la linea 202 se definen los colo- 
res de la pantalla. La linea 205 inicia- 
liza los registros de sonido, dejando- 
los listos para los efectos sonoros que 
se produciran mas adelante en el pro- 
grama. La linea 210 presenta el titulo 
del juego: MINA DE ORO. La linea 
220 es la encargada de presentar el 
nombre o nombres de los jugadores. 
Cuando se elige la option de dos ju- 
gadores, solo se presenta el apellido. 

Las lineas 230 a 300 presentan los 
valores de ACTIVOS TOTALES, 
CAJA EFECTIVO, CANTIDAD EN 
ORO, COSTES DE MINERIA, NU- 
MERO DE MINAS, PROFUNDI- 
DAD DE LA MINA Y PRECIO 
DEL ORO. Si hay dos personas ju- 
gando, se presentan los valores de am- 
bos en los lugares apropiados, exami- 
nando los valores de la variable NO. 
En el programa del Vic 20, las infor- 
maciones sobre los activos y el estado 
de las minas se abrevian a una sola le- 
tra, debido al pequeno tamano de la 
pantalla. 

La linea 400 presenta el nombre del 
jugador al que le toca el turno en cada 
momento. Las lineas 500 a 540 le brin- 
dan al jugador las opciones Investiga- 
tion y Desarrollo, Exploration e In- 
forme, incremento de la profundidad 
de la mina en 200 metros, precio del 
oro en dolares o pasar. La lmea 550 in- 
vita al jugador a que teclee una ins- 
truction. 

Las lineas 600 a 620 utilizan la fun- 
cion INKEY$ para tener en cuenta la 
election del jugador, comprobar que 
se trata de una election valida y 11a- 
mar a la subrutina encargada de su 
procesamiento. 

La linea 700 examina si el valor to- 
tal de los activos ha caido por debajo 



de cero, forzando un salto a la rutina 
de «final de juego» cuando asf ocurre. 
En el proximo capitulo veremos la li- 
nea 7000 y siguientes. La linea 710 in- 
troduce fluctuaciones aleatorias en el 
precio del oro, por lo que tienes que 
tener cuidado para vender tu oro en 
un momento en que su precio te per- 
mita hacer una operation favorable. 

La linea 720 establece una compa- 
racion entre un numero aleatorio y la 
cantidad de oro almacenada en tus ca- 
maras acorazadas, al objeto de decidir 
si va a haber un robo o no; observa 
que son mayores las probabilidades de 
que ocurra un robo cuando tienes gran 
cantidad de oro que cuando tienes una 
cantidad pequefia. La rutina de robo 
se extiende desde la linea 900 hasta la 
940. La Knea 905 elige la cantidad de 
oro que ha sido robada y la 920 se ocu- 
pa de presentar dicha cantidad en la 
pantalla. 

La linea 740 calcula el valor total de 
los activos, sumando al valor de efec- 
tivo en caja el valor resultante del oro 
al precio vigente en cada momento. 
La linea 350 inicializa los colores de la 
pantalla, borrandola antes de que la 
instruction NEXT envie nuevamente 
el programa a la linea 200, dejandolo 
listo para la siguiente pasada. 

Las lineas 810 a 840 constituyen la 
rutina de «juego terminado», que se 
utiliza cuando el activo total de uno de 
los dos jugadores ha caido por debajo 
de cero. La rutina presenta el estado 
financiero de ambos jugadores des- 
pues de presentar el mensaje de FIN 
DE JUEGO. 

Finalmente las lineas 850 a 880 son 
una rutina de ^quieres jugar otra vez? 

En el proximo capitulo veremos una 
serie de subrutinas que hacen que el 
juego resulte realmente adictivo. Ve- 
remos una rutina que permitira redu- 
cir tus costes de mineria por medio de 
la investigation y desarrollo, leer un 
informe relativo a las prospecciones 
realizadas en una mina, realizar exca- 
vaciones en la misma, escalonadas por 
etapas y cambiar tu oro por dolares. 

Ademas veremos todos los datos 
que necesitaras para dibujar los grafi- 
cos que ilustran el estado de las minas 
de oro y el progreso realizado por las 
excavaciones. 
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IGUAL QUE EL REY 
MIDAS 



Ha Uegado el momento de que te ha- 
gas rico rapidamente. ^Pero, has in- 
vertido en nuevas tecnologias antes de 
comenzar la exploration? ^Como in- 
terpretas el resultado? cual es el 
mejor momento para vender? Tendras 
que ser bastante perspicaz en la Mina 
de Oro. 

Ya has visto en la primera parte de 
este juego como definir las distintas 
opciones que se ofrecen al jugador: 
Investigation y Desarrollo, Explora- 
cion e Informe, Aumento de la Pro- 
fundidad de la Mina y Cambio de Oro 
por Dolares. Ahora puedes completar 
tu programa de la Mina de Oro con 
las subrutinas que manejan cada una 
de estas opciones. 

Investigation y Desarrollo es la ac- 
tividad que corresponde a la selection 
de la option 1, Exploration Previa e 
Informe es la option 2, Aumento de 
la Profundidad de la Mina es la option 
3 e Intercambio de Oro por Dolares 
es la option 4. La option 5 correspon- 
de a pasar sin hacer nada, por lo que 
para ella no se requiere una subrutina 
completa. Las opciones 1, 2 y 4 intro- 
ducen los elementos de aleatoriedad 
requeridos para que el juego se parez- 
ca de verdad al mundo real. 



INVESTIGACION Y DESARROLLO 



jara Commodore-64 



1000 



1010 



1030 
1050 
1060 

1080 

1100 



1110 
1120 

nil 

1000 
1010 



INVERTIRC]($)":INPUT RD 

R1=INTCRD*.5)-1 

A(M,4)=A(M,4)-R1 

IF A(M / 4)<0 THEN ACM, 4) 

=0 

ACM,2)=A(M,2)-RD:A(M,1) 
=A(M,1)-RD 

PRINT'TCRSR abajo]CCRSR 
abajoJLCRSR abaj o3 CCRSR 
abajo]CCRSR abajoXCRSR 
dcha.DCCRSR dcha.UCCRSR 
dcha.XCRSR dcha.UELG 
COSTOCHDEGEXCAVACIONC] 
ESGDEn:":PRINT"$ M ;Rl 

+1; 

PRINT"PARAC]20DD MT" ; 
FOR Z=1 TO 2300:NEXT 
RETURN 



1020 



POKE 53280,7:P0KE 53281 
,7:PRINT"CCTRL+13CSHIFT 
+CLR/H0ME]" 
PRINT'TCRSR abajo] 
BUSQUEDAHYC] DESARROLLO 
":PRINT"<PARAC:iDISMINUIR 
LlLOSCKOSTOS)" 
1020 PRINT'TCRSR abajo] CCRSR 
aba jo] CCRSR abajo] CCRSR 
abajoDCCRSR abajo] 
CUANT0E3QUIERESCD 



1030 
1050 
1060 

1080 

1100 



1110 
1120 



PRINT"CCTRL+1] 
CSHIFT+CLR/HOME] " 
PRINT'TCRSR abajo] 

busqueda,c] desarrollo": 
print'tctrl+3: cctrl+9] 
para:]disminuir[]loscj 

C0STOS" 

RD=0:PRINT'TCTRL+7] 

CCRSR abajo] CCRSR abajoU 

CCRSR abajo] CCRSR abajo] 

[CRSR abajo] CUANTOD 

QUIERESC] INVERTIRC1 ( EN □ 

$)": INPUT RD 

R1=INT(RD*.5)-1 

A(M,4)=A(M,4)-R1 

IF A(M)<0 THEN A(M,4) 

=0 

A(M,2)=A<M,2)-RD:A(M,1) 
=ACM,1 )-RD 
PRINT'TCRSR abajo] 
CCRSR abajoHCCRSR abajo] 
CCRSR abajo]LCRSR abajo] 
L0SC]C0ST0SC]VIENENE] 
REDUCID0SC3:":PRINTR1+1 
;"$C]PARAC]200 M" 
FOR Z=1 TO 2300:NEXT 
RETURN 



■ 


INVESTIGACION Y DESARROLLO DE 


NUEV0S MET0D0S EN MINERIA 


■ 


EXPL0RACI0N DE NUEVAS MINAS 


■ 


EL INFORME S0BRE LA MINA 


■ 


PERF0RACI0N DE LA MIMA 



La linea 1000 define los colores de 
la pantalla y borra esta. A continua- 
tion la linea 1010 define la cabecera 
de pantalla antes de que la linea 1020 
pregunte al jugador cuanto dinero 
quiere invertir en Investigation y De- 
sarrollo; rd es la cantidad elegida. 

La linea 1050 disminuye los costes 
de mineria en una cantidad relaciona- 
da con el volumen de la inversion en 
Investigation y Desarrollo. En la linea 
1060 se comprueba que los costes de 
mineria no se hacen negativos. La li- 
nea 1080 ajusta los activos en metali- 
co y totales para tener en cuenta la 
cantidad invertida en I + D. 

La cantidad en que se ven reduci- 
dos los costes de mineria se presenta 
en la linea 1110. La linea 1110 contie- 
ne un bucle FOR ... NEXT para in- 
troducir un pequeno retardo antes de 
que finalice la subrutina. 



EXPLORACION E INFORME 

^^^^9 para Commodore-64 

2000 POKE 53280,5: POKE 53281 
,5 :PRINT'TSHIFT+CLR/ 
H0ME]CCTRL+13"; 
2030 RCM)=0:CCM,1)=INT(RNDC1 
)*90)+10:C(M,2)=INT(( 
RND(1)*5)+2)*2Q0 
C(M,3)=INT(RND(1)*200)+ 
1 :LL=INTCRND(1)*3)-1 

C(M,4)=C(M,2)+LL*200 
C(M,5)=0:KK=INT(RNDCD* 
100):IF KK<CCM,1) THEN 
C(M,5)=1 

PRINT M CCTRL+33ECTRL+9: 
CCRSR abajoHCRSR abajo 
][CRSR dcha.] CCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.DCCRSR dcha.]CCRSR 
dcha.]C]RELACI0NC] 
CIENTIFICAC]" 
PRINT'TCRSR abajo] CCRSR 
abajo]CCRSR dcha.KCRSR 



2031 

2050 
2070 



2080 



2081 
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dcha.DCCRSR dcha.3CCRSR 
dcha.UCCRSR dcha-3 

prqpabilidadcddec: 
hallarc30r0=";c(m,1)"%" 

2082 PRINT'TCRSR abajoUCCRSR 
abajoHCRSR dcha.lCCRSR 
dcha.IlCCRSR dcha.UCCRSR 
dcha.UCCRSR dcha.] 

PRO FUND ID ADC] ESTIMADA-" 
;C(M,2); ,, M" 

2083 PRINT'TCRSR abajo]CCRSR 
abajoUCCRSR dcha.UCCRSR 
dcha .] CCRSR dcha-U CCRSR 
dcha.UCCRSR dcha.] 
CANTIDADC3ESTIMADA"; CCM 
,3) "KG" 

2100 Z=INT(RND(1)*150000) :A< 
M / 2)=ACM,2)-Z:A(M / 1)=AC 
M,1)-Z 

2110 PRINT'TCRSR abajoUCCRSR 
abajoUCCRSR abajoUCCTRL 
+3UQUIERESCUSEGUIRC] 
EXCAVAND0CS/N)?" 

2120 GET R$:IF R$<>"S" AND 
R$<>"N" THEN 2120 

2130 IF R$="S" THEN A(M,6)=0 
:R(M)=1 :G0 TO 3000 

2500 RETURN 



S^^^S para Vic-20 

2000 PRINT'TSHIFT+CLR/HOME] 
CCTRL+1D" 

2030 R(M)=0 : CCM,1 )=INT(RND 
C1)*90)+10:CCM / 2)=INTC 
(RND(1)*5>+2)*200 

2031 CCM^3)=INT(RND(1)*200) 
+1 :LL=INT(RND(1 )*3)-1 

2050 CCM,4)=CCM,2)+LL*200 
2070 C(M,5)=0:KK=INT(RND(1> 

*100) :IF KK<C( M,1 ) THEN 

C(M,5)=1 

2080 PRINT'TCTRL+3UCCTRL+9U 
CCRSR dcha.UCCRSR dcha.] 
RELACIONGCIENTIFICAH" 

2081 PRINT"CCTRL+7U 

CCRSR abajo] CCRSR abajo] 
CCRSR aba j oU PR0BABILIDAD 

r_] dec] encontrar c]oro="; 

C(M,1)"% H 

2082 PRINT'TCRSR abajoU 
CCRSR aba j oU PRO FUND I DAD 
C]ESTIMADA=";C(M,2);"M" 

2083 PRINT'TCRSR abajoU 
CCRSR abaj oU CANTIDADCU 



ESTIMADA";C(M,3)"KG" 
2100 Z=INT(RND(1)*150000) :A 

(H,2)=A(H,2)-Z:A(M,1)= 

A(M,1 )-Z 
2110 PRINT'TCRSR abajoU 

CCRSR abajoUCCRSR abajo] 

cctrl+33quierescuseguir 
□ excavandocs/n)?" 
2120 get r$:if r$<>"s"and r$ 

<>"N"THEN 2120 
2130 IF R$="S"THEN A(M,6)=0: 

R(M)=1 :G0TO 3000 
2500 RETURN 

En la lmea 2000 se borra la panta 
Ila y se cambian sus colores. La lmea 
2030 pone a cero r(m) para indicar que 
todavia no ha empezado la excava- 
tion. En esta lmea tambien se deter- 
mina la probabilidad de encontrar 
oro, el valor esperado de la profundi- 
dad y la cantidad esperada. La varia- 
ble 11 es un numero aleatorio compren- 
dido entre 1 y -1, el cual se utiliza en 
la lfnea siguiente a fin de determinar 
la profundi dad real del oro; recuerda 
pues que el valor de C(M,2) es preci- 
samente el valor esperado de la pro- 
fundidad. 

La lmea 2050 asigna a C(M,4) un 
valor igual a C(M,2) mas o menos 200 
metros (200 veces 11). Seguidamente la 
linea 2070 decide si la mina contiene 
realmente algo de oro. Se le asigna a 
C(M,5) el valor para indicar que no 
hay oro. KK es un numero aleatorio 
comprendido entre y 99. KK se com- 
para con la probabilidad de encontrar 
oro, si KK es menor, entonces C(M,5) 
se pone a uno para indicar que hay oro 
en la mina. 

La linea 2080 presenta al jugador el 
informe cientifico de la mina. Aunque 
al jugador se le dice la probabilidad de 
que encuentre oro y la profundidad 
mas probable, el que esto ocurra real- 
mente depende de varios factores 
aleatorios. En consecuencia deberas 
utilizar tu propio juicio para determi- 
nar si la inversion merece la pena o 
no. 

Ocupemonos ahora de las malas no- 
ticias: el informe hay que pagarlo. Es 
imposible predecir lo que costara, 
pero puede ser un valor comprendido 
entre nada y 150.000 dolares; este es 
el valor de Z elegido en la lmea 2100. 



El coste de la exploration y el infor- 
me hay que deducirlo de la disponibi- 
lidad en efectivo, y esta deduction 
aparecera tambien en los activos tota- 
les. 

En este momento al jugador se le 
ofrece la posibilidad de iniciar las ex- 
cavaciones. En la lmea 2110 se hace la 
pregunta <,SE INICIAN LAS EXCA- 
VACIONES? Si la respuesta es si, el 
programa salta a la rutina de mineria 
que empicza en la linea 3000. 



EXCAVACION 



BEHgffl para Commodore-64 

3000 POKE 53280,7:POKE 5328 
1,7 

3010 IF RCM)O0 THEN 3020 

3011 PRINT'TSHIFT+CLR/HOMED 
CCRSR abajoUCCRSR 
abajoUCCRSR abajoU 
CCRSR abajoUCCRSR 
abajoUCCRSR abajoHCRSR 
abajoXCRSR abajoUCCRSR 
abajoUCCRSR dcha . 3 CCRSR 
dcha.UCCRSR dcha.UCCTRL 
+93 CC0MM+-U CU AUNCUN0CU 
HASCUEXPL0RAD0!":F0R Z 
=1 TO 2300:NEXT:RETURN 

3020 POKE 53280 / 3:POKE 53281 
,5 rPRINT'TSHIFT+CLR/ 
HOMED CCTRL+1 3 " 

3022 PRINT TABC14);"CSHIFT+ 
DU CSHIFT+EU CSHIFT+F] ": 
PRINT TABC14);'TSHIFT+ 
GUCSHIFT+HUCSHIFT+IU 
CSHIFT+JU":PRINT TAB 
(13);"CC0MM+KUCSHIFT+LU 
CSHIFT+MU CSHIFT+NU 
CSHIFT+OU " 

3025 FOR Z=0 TO 39: PRINT" 
CSHIFT+AU";:NEXT 

3060 PRINT'TCLR/HOMEU CCRSR 

abajoUCCRSR abajo] CCRSR 
abajoUCCRSR abajo]CCRSR 
abajoUCCRSR dcha.U";: 
FOR Z=100 TO 1400 STEP 
100:PRINT TABC5-LEN 
CSTR$(Z)));Z:NEXT 

3090 ACM,2)=A(M / 2)-A(M,4):AC 
M,1)=A(M,1)-ACM,4) ; ACM, 
6)=A(M,6)+200 

3095 FOR F=0 TO 90:NEXT 

3100 PRINT'TCLR/HOMEU CCRSR 
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abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KSHIFT+CK 

3101 PRINT'TSHIFT+WKCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KSHIFT+B]" 

3102 FOR F=2 TO A(M,6)/100: 
PRINT'TCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.] 
CSHIFT+-]" 

3104 POKE 54272 ,33: POKE 
54273 ,33:P0KE 54277,15: 
POKE 54296,15 

3105 POKE 54276, 129:FOR Z=1 
TO 240:NEXT 

3110 NEXT: POKE 54296,0 
3120 IF A(M,6)=C(M,4) AND C( 
M,5)=1 THEN 3500 

3130 PRINT'TCLR/ HOME] CCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCRSR abajoKCRSR 
abajoKCTRL+7KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha .K3 AUNGNOE3HAYC3 
0R0! !" 

3131 IF A(H,6)<>CCM,2)+200 



THEN 3140 

3132 PRINT'TCRSR dcha.KCRSR 
dcha .KCTRL+1 ] CKSTAC] 
MINADNOCITIENECIORO, 
nPRUEBACICONCIOTRA." 

3134 ACM,6)=0:R(M)=0 

3140 FOR F=1 TO 2500:NEXT 

3300 RETURN 

3500 PRINT'TCLR/HOMEKCRSR 

abajoKCRSR abajoKCRSR 
abajo]": FOR Z=1 TO ACM, 
6)/100:PRINT:NEXT 

3505 PRINT'TCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCRSR 
dcha.KCRSR dcha.KCTRL 
+3KCTRL+9K]QC]RC]orj" 

3510 FOR F=54272 TO 54296: 
POKE F,0:NEXT 

3520 POKE 54284,1 5: POKE 

54283, 17:P0KE 54296,14 

3530 FOR F=64 TO 124 

3540 POKE 54280,F:FOR G=1 TO 
20:NEXT:NEXT 

3550 FOR F=124 TO 64 STEP-1 : 
POKE 54280, F: FOR G=1 TO 
20:NEXT:NEXT 

3560 POKE 54296,0 

3570 ACM,5)=A(M,5)+1 :ACM,3)= 
A(M,3)+C(M,3):A(M,1)=A 
(M,1)+A(M,3)*ER 

3580 ACM,6)=0:RCM)=0:G0 TO 
3300 

^^^^M para Vic- 20 

3000 POKE 35879,25 

3010 IF R(MX>0 THEN 3020 

3011 PRINT'TSHIFT+CLR/HOME] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCOMM+-K] 
AUN rj NO G H AS □ EXPLOR ADO 
!":F0R Z=1 TO 2300:NEXT 

: RETURN 

3020 PRINT'TSHIFT+CLR/HOME} 
CCTRL+3KCRSR abajo]" 

3022 PRINT TAB(14);'TCTRL+9] 
CSHIFT+SKCOMM+*]": 
PRINT TAB(14);'TCTRL+7] 
CCTRL+9KSHIFT++] 

ccomm+g: cctrl+od cctrl+1 j 



CSHIFT+I3 " 

3025 FOR ZZ=1 TO 15:F0R Z=0 
TO 20:PRINT"CCTRL+9K1" 
; : NEXT: PRINT; NEXT 

3060 PRINT'TCLR/ HOMED 

CCRSR aba j oil CCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajo]"; :F0R Z= 
100 TO 1400 STEP 100: 
PRINT'TCTRL+9]"Z:NEXT 

3090 A(M,2)=A(M,2)-A(M,4) :A 
(M,1)=ACM,1)-A(M,4) :A(M 
,6)=A(M,6)+200 

3095 FOR F=0 TO 90:NEXT 

3100 PRINT'TCLR/ HOME] 

CCRSR abajo] CCRSR abajo] 
CCRSR abajoKCRSR abajo] 
"SPCC1 5) "CCTRL+9] 
CSHIFT+-] " 

3102 FOR F=2 TO A(M,6)/100: 
PRINT SPCC15) "CCTRL+9] 
CSHIFT+-]":P0KE36877, 
128+F*3 

3104 FOR DE=5 TO 15 STEP. 3: 
POKE 36878, DE:NEXT:POKE 
36877,0 

3105 POKE 54276,129: FOR Z=1 
TO 240: NEXT 

3110 NEXT 

3120 IF A(M,6)=C(M,4) AND 
CCM,5)=1 THEN 3500 

3130 PRINT'TCLR/ HOME] 

CCRSR abajo] CCRSR abajo] 
CCRSR abajo] CCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajoKCRSR abajo] 
CCRSR abajo] CCTRL+73 
CCTRL+9KCRSR dcha.] 
CCRSR dcha.KCRSR dcha.] 
CCRSR dcha .] YAC3NQCDHAY 
□ 0R0! !" 

3131 IF ACM,6)OC(M,2)+200 
THEN 3140 

3132 PRINT'TCTRL+U 

CCRSR dcha.KCRSR dcha.] 
ESTAC]MINAC]NOC]TIENEC] 
0RO,C]PRUEBArjCONC]0TRA." 
3134 A(N,6)=0:R(M)=0 
3140 FOR F=1 TO 3000:NEXT 
3300 RETURN 

3300 RETURN : REM**CONTINUARA** 
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COMPACTANDO 
LA MUSICA 



Puedes aumentar la capacidad mu- 
sical de tu ordenador reduciendo los 
datos necesarios para las melodias. 
Tambien puedes utilizar esta misma 
tecnica para comprimir otros tipos de 
datos. 

Un trozo musical, aunque sea una 
melodia muy sencilla, ejecutado sobre 
tu ordenador, puede constituir una ex- 
pericncia la mar de estimulante, espe- 
cialmente si has compuesto y progra- 
mado la musica tu mismo. Natural- 
mente, existen dificultades que debes 
superar, una de las cuales es precisa- 
mente la gran cantidad de datos, po- 
siblcmente dos o tres pantallas reple- 
tas, que se rcquieren para programar 
una eancion tipica. Aparte de lo tedio- 



so que resulta teclear dichos datos, se 
ocupa una gran cantidad de memoria. 
En este articulo veremos algunas tec- 
nicas sencillas de compresion de da- 
tos, que te permitiran almacenar can- 
ciones dentro de tus programas en 
BASIC, sin tener que ocupar grandes 
porciones de la RAM de usuario. 

Como es natural, la necesidad de 
comprimir al maximo la cantidad de 
datos, de modo que ocupen el menor 
espacio posible, no esta limitada uni- 
camente a la generation de trozos mu- 
sicales. Las tecnicas descritas en este 
articulo se pueden utilizar para com- 
primir datos utilizados en otras aplica- 
ciones, en el supuesto de que los da- 
tos, o bien sean repetitivos o utilicen 
solo un margen restringido de valor es. 



■ COMPRIMIEND O LAS MELODIA S 

■ PRO GRAM ACION DE UN BLUES 

DE 12 COMPASES 

■ FRAGM ENTOS REPETID OS 

■ UTILIZA MENOS NOTAS 



CANTANDO BLUES 



La mayona de las canciones, cual- 
quiera que sea su estilo musical, tie- 
nen una analoga estructura que lleva 
por si sola a la compresion de datos . 
Supongamos por ejemplo que quieres 
ejecutar una sencilla melodia de blues 
de 12 compases de extension . Lo mas 
probable es que escribas un programa 
en el que se almacenan secuencial- 
mente los valores de altura de los so- 
nidos dentro de sentencias DATA. 
Teclea y ejecuta el siguiente programa 
para escuchar una de estas melodias: 

B^BKjjB para Com modo re-64 

10 S=54272:F0R Z=S TO S+24: 



program**^ 



POKE Z,0:NEXT Z:T=100 
20 POKE S+5,0:POKE S+6,240: 

POKE S+24,1 5: RESTORE 
30 READ K,KK:IF K=-1 THEN 20 
45 POKE S+4,33:P0KE S+11,129 
50 POKE S+1,K:POKE S,KK 
60 FOR Z=1 TO T: NEXT Z 
70 POKE S+4,32:G0T0 30 
100 DATA 8,97,8,97,9,247,10, 
143,12,143,12,143,14,24, 
12,143 

110 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
120 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143 

130 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
140 DATA 11,48,11,48,13,78, 

14,24,16,195,16,195,18, 

209,16,195 
150 DATA 11,48,16,195,14,239 

,14,24,12,143,11,48,10, 

143,9,104 



160 DATA 8,97,8,97,9,247,10, 
143,12,143,12,143,14,24, 
12,143 

170 DATA 8,97,16,195,14,239, 

14,24,12,143,11,48,10, 

143,9,104 
180 DATA 12,143,12,143,15, 

210,16,195,18,209,18,209 

,16,195,15,210 
190 DATA 11,48,11,48,13,78, 

14,24,16,195,16,195,13, 

78,14,24 
200 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143 

210 DATA 8,97,16,195,14,239, 
14,24,12,143,11,48,10, 
143,9,104 

999 DATA -1,0 

^^^^fl para Vic-20 

10 S=36874:F0R Z=S TO S+4: 

POKE Z,0:NEXT Z:T=200 
20 POKE S+4,1 5: RESTORE 
30 READ K:IF K=-1 THEN 20 
50 FOR Z=0 TO 2: POKE S+Z,K: 

NEXT Z 
60 FOR Z=1 TO T : NEXT Z 
70 FOR Z=0 TO 2: POKE S+Z,0: 

NEXT Z.-GOTO 30 
100 DATA 173,173,185,189,200 

,200,206,200 
110 DATA 173,214,208,206,200 

,192,189,181 
120 DATA 173,173,185,189,200 

,200,206,200 
130 DATA 173,214,208,206,200 

,192,189,181 
140 DATA 192,192,203,206,214 

,214,218,214 
150 DATA 192,214,208,206,200 

,192,189,181 
160 DATA 173,173,185,189,200 

,200,206,200 
170 DATA 173,214,208,206,200 

,192,189,181 
180 DATA 200,200,211,214,218 

,218,214,211 
190 DATA 192,192,203,206,214 

,214,203,206 
200 DATA 173,173,185,189,200 

,200,206,200 
210 DATA 173,214,208,206,200 

,192,189,181 
999 DATA -1 



A diferencia de lo que ocurre con 
otros micros, los datos de los Commo- 
dore tienen una longitud doble, debi- 
do a que cada nota se especifica me- 
diant e dos valores que dan su tono, 
uno contenido en el byte alto y otro 
en el byte bajo. 

La variable T establece un factor 
temporal para controlar la velocidad 
de ejcucion de la melodia. La linea 20 
pone el puntero de datos en la prime- 
ra linea de datos y despues el progra- 
ma entra en un bucle entre las lmcas 
30 y 70, leyendo los valores del tono 
de los sonidos, que corresponden a los 
numeros de las sentencias DATA y 
pasando a las sentencias de sonido de 
las lmcas 40 a 70. La linea 30 sirve 
para detectar el final de la melodia, 
que esta marcado por el numero — 1 
elegido arbitrariamente. 

Si quieres programar un silencio en 
algiin punto de la melodia, puedes in- 
sertar otro valor arbitrario (por ejem- 
plo 254) e incluir una prueba en la li- 
nea 40 para detectarlo. Si el resultado 
de dicha prueba es positivo, el progra- 
ma saltara a una linea que establece 
un retardo, devolviendo despues el 
control a la linea 30 para continuar 
con la musica. 

Tal como esta ahora el programa, 
lo que hace es pasar los valores de afi 
nacion a la seccion del micro encarga- 
da del manejo de los sonidos, en la 
cual son ejecutados secuencialmente, 
tal como aparecen en las Imeas de los 
datos. 

Aunque este programa funciona 
muy bien, no tienes mas que echar un 
vistazo al listado para ver que, incluso 
para una melodia tan sencilla como 
esta, se requieren una gran cantidad 
de datos. Esto resulta tedioso de te- 
clear y ocupa una nada despreciable 
cantidad de memoria. 

Hay ademas otro inconveniente: 
mientras las sentencias DATA estan 
siendo procesadas (es decir mientras 
se esta ejecutando la melodia) el mi- 
cro no puede realizar ninguna otra ta- 
rea. 

Algunos micros resuelven parcial- 
mente este problema con ayuda de un 
buffer de sonidos que puede contener 
datos de hasta seis sentencias de soni- 
do. Si el buffer tiene suficientementc 



Programed 



espacio para almacenar todos los da- 
tes usados en una melodfa particular, 
el ordenador es libre de continuar con 
cualquier otra tarea; pcro tambien en 
este caso, micntras haya que procesar 
sonidos, el micro debe estar atendien- 
do a su procesamiento. Ademas el 
buffer de sonidos no hace nada para Ii- 
berarte de la tediosa tarea dc introdu- 
cir los datos, o para reducir la canti- 
dad de memoria requerida. 

Por todo ello lo que realmente ne- 
cesitas, aparte de la solucion obvia de 
escribir melodfas muy cortas, es en- 
con trar alguna forma de compactar o 
comprimir los datos para que ocupen 
poco espacio y para que scan mas ra- 
pidos su introduccion y procesamien- 
to. 



OBSERVA LA TENDENCIA 



La compresion de datos se basa en 
que los datos esten organizados con 
una o varias tendencias. Cuantas mas 
de estas tendencias seas capaz de iden- 
tificar, mayor sera el grado de com- 
presion que podras lograr. 

El primer paso para analizar las ten- 
dencias dentro de los datos de una me- 
lodfa es ejecutarla realmente o escu- 
charla en algun instrumento, intentan- 
do identificar los pasajes que se parez- 
can. Escribe la lmea melodica sobre 
un papel, ignorando los pentagramas. 
las indicaciones de tiempo y los demas 
signos musicales; concentrate unica- 
mente en la altura de cada sonido. 



Resulta muy senciilo escribir se- 
cuencialmente el nombre que corres- 
ponde a cada sonido a medida que va 
apareciendo en la cancion, disponien- 
dolos sobre una lmea recta. Cuando 
todas las notas tienen la misma dura- 
cion, por ejemplo una parte de un 
compas, la cosa es facil; pero ^que su- 
cede cuando una nota se prolonga mas 
de una parte de un compas? El pro- 
grama es mucho mas senciilo si todas 
las notas tienen la misma duracion, es 
decir si sc le asigna a T un valor cons- 
tante. Si se permite que el valor de T 
cambie de una nota a otra, ademas del 
tono tienes que almacenar la duracion 
de cada nota, con lo que se duplica la 
cantidad de datos. Para tener en cuen- 
ta las notas que se prolongan durante 



mas de una parte de compas, puedes 
simplemente introducir la misma nota 
mas de una vez; por ejemplo si una 
nota dura tres partes de un compas 
puedes introducir el mismo valor del 
tono tres veces. 

Despues que hayas escrito la melo- 
dia del blues obtendras algo parecido 
a la tabla 1 

Si estudias con cuidado la tabla an- 
terior, podras observar que esta conv 
puesta de cinco series diferentes de 
notas o «mini-melodi'as», casi todas 
ellas repetidas varias veces, tal como 
se muestra en la tabla 2: 

Ahora ya dispones de un metodo 
para la compresion de datos; en lugar 
de teclear todas las veces todas las no- 
tas de cada una de las frases o mini- 



Tabla 1 

SoL1 SoL1 La#1 Si1 Re1 Rel Mil Re1 Soli 

SoL2 Fa1 Mil Re1 Do1 Si1 La1 

Soil SoL1 La#1 Si 1 Re1 Re1 Mil Re1 SoL1 

SoL2 Fa1 Mil Re1 Do1 Si1 La1 Do1 Do1 

Re#1 Mil SoL2 SoL2 La2 SoL2 Do1 SoL2 Fa1 

Mil Re1 Do1 Si 1 La1 

SoL1 SoL1 La#1 Si1 Re1 Re1 Mil Re1 SoL1 

SoL2 Fa1 Mil Re1 Do1 Si1 La1 

Re1 Re1 Fa#1 SoL2 La2 La2 SoL2 Fa#1 Do1 

Do1 Re#1 Mil SoL2 SoL2 Re#1 Mil 

5011 SoL1 La#1 Si1 Re1 Re1 Mil Re1 SoL1 

5012 Fa1 Mil Re1 Do1 Si1 La1 

TabLa 2 

T1=SoL1 SoLl La#1 Si 1 Re1 Re1 Mil Re1 SoL1 

T2=SoL2 Fa1 Mil Re1 Do1 Si1 La1 

T3=Do1 Do1 Re#1 Mil SoL2 SoL2 La2 SoL2 Do1 

T4=Re1 Re1 Fa#1 SoL2 La2 La2 Sol2 Fa#1 

T5=Do1 0o1 Re#1 Mil SoL2 SoL2 Re#1 Mil 



MAS DE UNA 
MELODIA 

Como ejercicio puedes inten- 
tar codificar otras canciones 
para el ultimo programa. Inten- 
ta primero sumar unas tres can- 
ciones. Calcula las sencuencias 
maestras y las frases componen- 
tes y a continuacion almacenalas 
en sentencias DATA. Tendras 
que reiniciahzar las variables de 
matrices X() en la tabla princi- 
pal de notas de cada melodia an- 
tes de que sea ejecutada. Podia 
ser necesario que tuvieras que 
cambiar tambien alguno de los 
numeros. 



melodias cada vez que se presenten, 
puedes introducir cada frase una sola 
vez junto con una corta serie de codi- 
gos que decriban la secuencia con la 
que hay que ejecutar las frases. A 
cambio de este ahorro de memoria, 
resulta un programa mas largo, ya que 
tiene que decidir que datos ha de pro- 
cesar en cada momento. El siguiente 
programa pone esto de manifiesto: 

para Commodore-B4 

1 S=54272:F0R Z=S TO S+24: 
POKE Z,0:NEXT Z 

2 POKE S+5,0:P0KE S+6,240: 
POKE S+24,15 

10 C=0:T=10Q 
20 RESTORE 

27 FOR Z=1 TO C+1:READ P: 
NEXT Z 

28 IF P=0 THEN 10 

29 RESTORE: FOR W=1T0 P: READ 
WW:NEXT W 

30 READ K,KK:IF K=-1 THEN 
C=C+1 :G0T0 20 

40 POKE S+4,33 

50 POKE S+1,K:P0KE S,KK 

60 FOR Z=1 TO T : NEXT Z 

70 POKE S+4,32:G0T0 30 

100 DATA 13,33,13,33,49,33, 

13,33,69,87,13,33,0 
110 DATA 8,97,8,97,9,247,10, 

143,12,143,12,143,14,24, 

12,143,8,97,-1,0 



120 DATA 16,195,14,239,14, 
24,12,143,11,48,10,143,9 
,104,-1,0 

130 DATA 11,48,11,48,13,78, 
14,24,16,195,16,195,18, 
209,16,195,11,48,-1,0 

140 DATA 12,143,12,143,15, 
210,16,195,18,209,18,209 
,16,195,15,210,-1,0 

150 DATA 11,48,11,48,13,78, 
14,24,16,195,16,195,13, 
78,14,24,-1,0 

^^^J para Vic-20 

1 S=36874:F0R Z=S TO S+4: 
POKE Z,0:NEXT Z 

2 POKE S+4, 15 
10 C=0:T=200 
20 RESTORE 

27 FOR Z-1 TO C+1 : READ P: 
NEXT Z 

28 IF P=0 THEN 10 

29 RESTORE : FOR W=1T0 P: READ 
WW: NEXT W 

30 READ K:IF K=~1 THEN C=C+1 
:60T0 20 

50 POKE S+2,K 

60 FOR Z-1 TO TrNEXT Z 

70 POKE S+2,0:G0T0 30 

100 DATA 13,23,13,23,31,23, 

13,23,41,50,13,23,0 
110 DATA 173,173,185,189,200 

,200,206,200,173,-1 
120 DATA 214,208,206,200,192 

,189,181 ,-1 
130 DATA 192,192,203,206,214 

,214,218,214,192,-1 
140 DATA 200,200,211,214,218 

,218,214,211,-1 
150 DATA 192,192,203,206,214 

,214,203,206,-1 

Observa que la cantidad dc datos 
requeridos para ejecutar la melodia se 
ha reducido enormcmente. Se ha pa- 
sado de 97 a 59 bytes. Haz correr el 
programa y comprueba que la melo- 
dia es la misma que la que interpreta- 
ba el primer programa. Puede que te 
parezca que el «tempo» de la musica 
es un poco raro; hablaremos mas de 
esto dentro de poco. 

Los datos de las frases estan en las 
lineas 110 a 150, mientras que los da- 
tos de la secuencia maestra — el orden 



en que hay que ejecutar dichas fra- 
ses — esta en la linea 100. EI bucle de 
la linea 30 sirve para poner el valor de 
P dentro de la secuencia maestra para 
seleccionar cual es la frase que hay 
que ejecutar. De hecho la secuencia 
maestra es una lista dc numeros de li- 
neas (o numeros combinados con un 
desplazamiento para obtener los nu- 
meros de lineas) en las que se listan 
los datos de las frases. 

Despues que se ha calculado la fra- 
se, la linea 50 pone el puntero de da- 
tos al principio de la linea adecuada 
de datos. En los Commodore no se 
puede hacer RESTORE a una linea 
dentro de un bloque de datos sino solo 
a la primera linea de datos. Por eso, 
para acceder a una frase en particular 
hay que utilizar bucles FOR ... NEXT 
(lmeas 27 y 29) . 

La linea 10 inicializa C para contar 
el numero de frases que han sido ya 
ejecutadas. La linea 40 sirve para 
comprobar la ultima frase, que esta 
marcada por en la linea 100. El final 
de cada frase esta marcado por 255. 
Despues de que se interpreta cada una 
de ellas, el programa pasa a leer en la 
secuencia maestra el numero de linea 
de la siguiente frase. 

Hay muchas formas de fraccionar 
una melodia en una secuencia maestra 
o principal y una serie de frases. En 
general, cuanto mas cortas sean las 
frases, mas larga sera la secuencia 
principal. Tendras que buscar un cier- 
to equilibrio para que las frases sean 
pequenas, pero no tanto que la venta- 
ja de utilizar este sistema se pierda por 
el excesivo aumento del tamano de la 
secuencia maestra. 



DIVIDE Y VENCERAS 



La segunda tecnica de compresion 
de datos es todavia mas eficiente. Se 
basa en el hecho de que aunque en al- 
gunos micros hay disponibles un gran 
numero de notas posibles (tipicamen- 
te 256) en una melodia particular solo 
se utilizan unas cuantas. Y resulta muy 
dispendioso almacenar estos pocos so- 
nidos con un sistema que ha sido dise- 
nado para almacenar muchos mas va- 
lores diferentes. 
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programaeion 



Program***" 



Cada direccion de mcmoria de lu 
micro de ocho bits puede aimacenar 
un numero decimal en el margen de 
a 255. Si puedes restringir el margen 
de los numcros que deseas aimacenar, 
podras empaquetarlos mas en cada di- 
reccion poniendo un numero en cada 
cuatro bits. Por ejemplo, el numero 
binario de ocho bits 10100010 se pue- 
de interpretar como el numero deci- 
mal 162 o el par de numeros decima- 
les 10 (por los cuatro bits de la izquier- 
da 1010) y 2 (por los cuatro bits de la 
derecha 0010). 

La reduction a la mitad del numero 
de bits disponibles para aimacenar 
cada numero restringe el margen de 
numeros de una forma bastante dras- 
tica, de a 15. Pero puede ser sufi- 
ciente. Muchas veces el numero de no- 
tas diferentes en una melodfa sencilla 
no pasa de 16. 

Para utilizar este metodo de com- 
presion de datos tienes que restringir 
el numero de notas diferentes a 15, de- 
jando la decimosexta combination 



como codigo de control. Como ocurna 
antes, el acortamiento de los datos au- 
mcnta generalmente la cantidad de 
programa que necesitas para procesar 
los. En este caso el programa tiene 
que decidir que aitura de los sonidos 
debe utilizar para cada uno de los da- 
tos abreviados en forma codificada 
que se encuentra en las sentencias 
DATA. Y tii mismo tendras que tra- 
bajar bastante para preparar los datos 
de forma que sean digeribles por el 
programa, contando cuantas notas dis- 
tintas se usan en la melodfa, colocan- 
dolas despues por orden ascendente 
de tono a parti r de la nota mas baja 
de la primera octava, en este caso 
Soli. Seguidamente tendras que calcu- 
lar las form as codificadas que deberan 
tener los siguientes datos. Para la can- 
cion elegida, hay doce notas: Soli, 
Lai, La#l, Sil, Dol, Rel, Re#l, 
Mil, Fal, Fa#l, SoI2 y La2. Teclea y 
ejecuta el siguiente programa para ver 
la manera en que va progresando el 
listado; 



■^^^^B para Commodore-64 

10 S=54272:F0R Z=S TO S+24: 

POKE Z,0:NEXT Z 
20 POKE S+5,0:POKE S+6,240: 

POKE S+24, 15 
23 DIM X(16),XX(16) :REST0RE: 
FOR N=1 TO 16: READ X(N), 
XX(N) : NEXT N 
C=0:T=100 

RESTORE: FOR W=1 TO 32: 
READ WW:NEXT U 
FOR Z=1 TO C+1 : READ P: 
NEXT Z 

IF P=0 THEN 25 
RESTORE:: FOR W-1 TO P+40; 



25 
26 

27 

28 
29 

50 
60 
70 

80 
90 
100 



READ WW: NEXT W 

READ N:SS=N 

N=INTCN/16> 

IF N=15 THEN C=C+1 : 

GOTO 26 

G0SUB 130 

N=SS:N=15 AND N 

IF N=1 5 THEN C=C+1 

GOTO 26 



Suscribase ahora a 




PRECiO DE CUBIERTA PTAS. 375 

MENOS: 20 % de descuento al suscriptor Ptas. 75 

USTED PAG A SOLO PTAS. 300 {por ejemplar) 

SUSCRIPCION AN UAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas), USTED PAG A SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION... 
(un curso completo de programacion)... 



commodore 




to 1 



<xvxxxxxxx\xx\x\xxxxxxxvxxxxxxxxxxxxx\xxxx\\\xxxxxxxx\xxxx\\xxxvxxxxxxxxxxxxxx^ 




...LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



Divi&rtase con os 



input BOLETIN DE SUSCRIPCION 

SI, envieme INPUT COMODORE durante 1 ario (12 ejemplares), al precio especial de oferta de 3.600 Pfais. AHOR RAN DOME r / 



900 Ptas. sobre el precio normal de portada de 12 ejemplares sueltos. (Por favor, cumplimente este bole tin con sus datos personales e 



indfquenos con una (X) la forma de pago por usted elegida, metalo en un sobre y deposltelo en el buzfin m5s proximo). 



_l I I I L 



J 1 APELUDOS 1 L_ 



_l I 1 I [_ 



DOMICILIO I L 1_ 

KOBLACjON L. 
PROFESJON l_ 



_J 1 1 L_ 



J I I 1 1 1 L_J I I I I I I PROWNCIA 



I PiSO 

J I i_ 



J COD- POSTAL L. 
_1 TELF. I I I I 



I I I I I 1 



I 



Muy senores rmos; 



FORMA DE PAGO ELEGIFJA: Reembolso □ Domlcll»c16n Bancorta □ 

Talfin nominatiuo que adjunlo a favor de EDISA .... □ 

| INSTRUCCIONES DE DOMlCiLlACION BANCARIA (si es elegida por usted) 

de de 19 



Recorte y etwfe este cupon 

de inmediato a EDISA : Lopez de Hoyos, 

28002 Madrid, o bien llamenos 

al Telf, (91) 415 97 12 



141 



I Les ruego que, con cargo a mi cuenta n.' 
I 



1 



Editorial PLANETA-AGOSTIN! a nombre de 

I I I i i I I BANCO/C dt AHORROS I 

I I I I 1 I I I DIRECCION I I I I 



_l I I I L 



y xxxxxx^^xxx^^^^xxxxvs^^^xx^^vxxv i 



atiendan, hasta nueuo aviso, el pago de los recibos que les presentarS y 

A 1 L_l 1 1 1 I I I I I I I I I I I I I I I I I I I /* 

i i i i i i_i i i i i i i i i i i i i ■ _i i i i i i y 

—I | I I I I I I I 1 I l_l I l_l I L_l — J — I — I — I — L_L_! A 

FIRMA V 

2 
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.4* 





jMal momento 
amigos! Como Jefe 
de Seguridad del Insti- 
tute* de Investigaciones Gra- 
vitacionales, estaba tranquilamen- 

te apoltronado en mi despacho cuandomi"teIefono caliente" sono. 
Un grupo de saboteadoires fanaticos se ha infiltrado en el Institute) 
y ha plantado numerosas bombas de relojeria y ADEMAS ha 
reprogramado mis robots guardianes para darme el susto de mi 
vida. 

Bien, jesto es todo! He tenidoque llamar a mis f uerzas de elite, los 
Androides Desactivadores, para limpiar los cinco laboratories y 
deshacerse de los desapaeibles guardianes tontos. Por supuesto 
.que no es tan facil moverse por entre habitaciones cuyos suelos 
sean techos y los techos puedan ser paredes. Si los DEACTIVA- 
TORS pueden arrojar todas las bombas fuera del Centro antes de 
que todos desafiemos las ley es de la gravedad, es posible que pueda 
continuar mi siesta. 



Editado por D RO SOFT ■ <"3 

Fundadores.3 28028 MADRID Cfpl 
Tits.: 255 45 00/09 tm^& 



110 GOSUB 130 

120 GOSUB 50 

130 POKE S+4,33 

140 POKE S+1,X(N+1) :POKE S, 

XXCN+1) 
150 FOR Z=1 TO T: NEXT Z 
160 POKE S+4,32: RETURN 
450 DATA 8,97,9,104,9,247,10 

,143,11,48,12,143,13,78, 

14,24,14,239,15,210,16, 
460 DATA 18,209,0,0,0,0,0,0, 

0,0 

195 

1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 
1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 

j.frJ S'ife'j para Vic-20 

10 S=36874:F0R Z=S TO S+4: 

POKE Z,0:NEXT Z 
20 POKE S+4,15 

23 DIM X(16) :RESTORE:FOR N=1 
TO 1 6 : READ X(N):NEXT N 

25 C=0:T=200 

26 RESTORE: FOR W=1 TO 16: 
READ WW: NEXT W 

27 FOR Z=1 TO C+1 :READ P: 
NEXT Z 

28 IF P=0 THEN 25 

29 RESTORE: FOR W=1 TO P+24: 
READ WW:NEXT W 

50 READ N:SS=N 
60 N=INTCN/16) 
70 IF N=15 THEN C=C+1 : 

GOTO 26 
80 GOSUB 130 
90 N=SS:N=15 AND N 
100 IF N=15 THEN C=C+1 : 

GOTO 26 
110 GOSUB 130 
120 GOTO 50 
130 POKE S+2,XCN+1) 
150 FOR Z=1 TO T:NEXT Z 
160 POKE S+2,0:RETURN 
450 DATA 173,181,185,189,192 

,200,203 ,206 ,208,21 1 ,21 4 

,218,0,0,0,0 
1000 DATA 5,10,5,10,15,10 
1010 DATA 5,10,20,25,5,10,0 
1110 DATA 0,35,85,117,15 
1120 DATA 168,117,67,31,255 



1130 DATA 68,103,170,186,79 
1140 DATA 85,154,187,169,255 
1150 DATA 68,103,170,103,255 

Los valores de la altura de estos so- 
nidos estan codificados en las senten- 
cias DATA de la lfnea 450. Observa 
que el numero de elementos ha de ser 
32 ya que cada valor de la altura est a 
especificado por dos parametros. Solo 
se han codificado 12 notas, llenando 
de ceros los ocho espacios restantes. 
Los cuatro bits binarios (que forman 
lo que se llama un nibble) que forman 
cada nota de la frase estan codificados 
en las lmeas 1000 y 1010. Para enten- 
der la forma en que se calculan estos 
valores, tomemos como ejemplo TL 
Asignemos una etiqueta a cada ele- 
mento de la secuencia principal de la 
lfnea 450. La primera nota de esta li- 
nea es 0, la segunda es 1, la tercera, 
2, etc, hasta llegar a la ultima que es 
15. A continuation se escribe la suce- 
sidn de etiquetas correspondiente a 
TL Cada valor esta contenido en un 
nibble; los nibbles se agrupan de dos 
en dos para formar los bytes. 

El primer par de nibbles es 0, 0, que 
en binario da 0000 y 0000. Al combi- 
nar estos valores se obtiene el nume- 
ro decimal 0. En consecuencia el pri- 
mer elemento de la sentencia DATA 
para la frase Tl de la lmea 1110 es 0. 
Los dos elementos siguicntes de Tl 
son 2 y 3, es decir 0010 y 0011 que al 
combinarse en binario dan 001100011 
que en decimal es 35. Este es el segun- 
do valor de las DATA de Tl en la li- 
nea 1110. De analoga forma T2 se 
convierte en 10,9,7,5,4,3,1,15. 10 y 9 
se combinan para dar 1010 y 1001 en 
binario y 168 en decimal; este es el pri- 
mer valor de T2 en la hnea 1120. El 
metodo sigue calculando todos los 



DATA de las frases (h'neas 1110 a 
1150). Tambien aqui, la secuencia 
maestra (lmeas 1000 y 1010) esta cons- 
tituida por los valores que apuntan a 
las lmeas que contienen los datos de 
las frases, colocados por orden de eje- 
cucion. 



DECGDIFICACION DE LA 
CANCiON 



La decodificacion se produce entre 
las lmeas 50 y 100: la lfnea 50 memo- 
riza el bit examinado (N), la 60 extrae 
el nibble de la izquierda, la 70 inter- 
cepta el final de la frase, la 80 llama a 
una subrutina que ejecuta la nota co- 
rrespondiente a dicho nibble y la 90 
extrae por medio de una operacidn 16- 
gica de AND el nibble derecho para 
de spues, igual que antes, ejecutar la 
correspondiente nota. 

Para modificar la velocidad de eje- 
cucion, hay que cambiar el valor de T, 
definido en la lmea 25. El retardo en- 
tre la ejecucion de una melodfa y la 
biisqueda de la siguiente queda pues- 
to en evidencia al disminuir el valor de 
T. 
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NO 0LVIDES EL TELEF0N0... S 

Cuando, por cualquier motivo, nos escribas, no olvides in- 
dicar tu numero de telefono. Asi nos sera mas facil y rapido 
ponernos en contacto eontigo. Gracias. 
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EGA HITS!! 







© 




are* 




AMSTRAD (A) 
Commodore (c) 
SPECTRUM (IT) 




VISITE LA DIVISION 



A 



GALERIAS 



Disponibles en: 
CASSETTE 

y 

D1SCKETTE 




ccmcf o estilo. 



Y EN TODOS LOS DISTRIBUIDORES DE NUESTROS PRODUCTOS 



Editado y distribuido en Espana por: 
Mariano CubL 4 Entlo. Tel, 218 34 00 - 08006 Barcelona 



Parricip« 



PING PONG, VUELTA A UN JUEGO 
TRADICIONAL 



CON MANE JO 
DE SPRITES 
DESDE CODIGO 
MAQUINA 



El autor del programa comenzo a 
hacer sus pinitos en codigo maquina 
dedicandose a mover los sprites por la 
pantaila, comprobando visualmente la 
enorrae diferencia de velocidad que 
hay con el BASIC. Para entrenarse con 
un juego record 6 las primer as maqui- 
nas recreativas electronicas, en las que 
se jugaba al tenis contra otro adversa- 
rio. El, sin embargo, practica el tenis 
de mesa. 

El programa pregunta en primer lu- 
gar la velocidad de juego deseada y vi- 
sualiza las instrucciones. Pulsando una 
tecla se formara, la mesa, las raquetas 
y la pel ota. 

Seguidamente se ajusta el sonido. 
Una de las tres voces del Commodore 
64 producira cl choque entre pelota y 
raqueta y otra hara sonar un tono 
cuando la pelota saiga fuera. 

En las matrices E y R se guardan 
los datos de posicionamiento e incre- 
mento de la pelota en el saque. Son 
ncccsarias dos matrices ya que estos 
valores cambian segun sea el turno de 
uno u otro jugador para el saque. 

Los incrementos horizontal y verti- 
cal de la pelota se guardan en las po- 
siciones de memoria 251 y 252, donde 
son modificados por el codigo maqui- 
na segun los choques que sufra la bola. 
El incremento horizontal es de 5 pi- 
xels en uno u otro sentido, pero el in- 
cremento vertical no es siempre de un 
pixel hacia arriba o hacia abajo, sino 
que depende del «efecto» que le im- 
prima la raqueta. 



Es decir, si la pelota viaja hacia arri- 
ba y es golpeada hacia abajo, su nue- 
va trayectoria sera horizontal. Si, por 
el contrario, es golpeada hacia arriba, 
saldra con una inclinacion doble de la 
que llevaba. Pero, si cuando se la gol- 
pea, la raqueta permanece inmovil, 
saldra con la misma inclinacion que 
trafa. 

El movimiento realiza desde el pro- 
grama en codigo maquina. Lo prime- 
ro que contiene es un contador varia- 
ble para conseguir distintas velocida- 
des de juego. Despues comprueba la 
pulsacion de teclas, y en una subruti- 
na aparte, si existio choque producien- 
dose el sonido correspondiente. 

Cuando la pelota sale fuera se de- 
vuelvc el control al BASIC, que re- 
nueva el marcador y decide a quien le 
toca sacar. La partida acaba cuando 
un jugador alcanza los 11 puntos. Pul- 
sando una tecla se reinicia el juego. 



SENCILLAS MODIFICACJONES 



- Puede cam bi arse cl color de la 
mesa en la linea 790 cambiando el 5 
de POKE I -I- J, 5 por el color desea- 
do y haciendo lo mismo en los POKES 
de 820. 

- A partir de 855 se decide el nivel 
de juego. Pueden probarse otras velo- 
cidades haciendo que D alcance otros 
valores. Deben estar comprendidos 
entre 1 y 255, siendo mas lento cuan- 
to mayor sea la cifra. 

- Pueden jugarse partidas a 21 pun- 
tos cambiando los valores de Cl y C2 
en la linea 280. 

- Pueden modificarse los incremen- 
tos horizontal y vertical de la pelota 
cambiando el valor de E(4) y E(5) res- 
pectivamente, R(4) y R(5) deberan 
valer R(i) = 256 - E(i) para i = 4,5. 

21^^^ para Commodore-64 

10 GOSUB 860 

20 PRINT'TSHIFT+CLR/HOME] 



[CTRL+61 CAR6AND0 PROGRAMA 
30 GOSUB 770 

35 REM F0RMACI0N DE SPRITES 
40 POKE 2040,1 92: POKE 2041, 

193: POKE 2042,194 
50 FOR 1=0 TO 191:P0KE 12288 

+I,0:NEXT I 
60 FOR 1=0 TO 9 STEP 3: POKE 

12288+1, 240:NEXT I 
70 FOR J=1 93 TO 194:H=J*64: 

FOR 1=0 TO 60 STEP 3 : POKE 

H+I, 240: NEXT I, J 
80 V=53248:P0KE V+39,8:P0KE 

V+40,2:P0KE V+41 ,2 
85 REM POSICIONAMIENTO DEL 

CODIGO MAQUINA 
90 1=0 

100 READ A:IF A=-1 THEN 120 
110 POKE 49206+1, A: 1=1+1 : 

GOTO 100 
120 1=0 

130 READ A:IF A=-1 THEN 150 
140 POKE 52224+1, A:I=I+1 : 

GOTO 130 
145 REM PREPARACI0N DEL 

SONIDO 

150 POKE 54296, 15:P0KE 54273 
,34; POKE 54272,75 : POKE 
54277, 0:P0KE 54278,240 

160 POKE 54280,72 :P0KE 54279 
,169: POKE 54284,2 : POKE 
54285,72 :P0KE 54283,0 

165 REM VARIABLES DE 

P0SICI0N E INCREMENTO DE 
LA PELOTA 

170 EC1)=4:E(2)=217:EC3)=61 : 
E(4)=5:EC5)=255:R(1)=5: 
R(2)=79:R(3)=45:RC4)=251 

180 R(5>=1 -.POKE V+21,7 

190 PRINT"CCLR/H0ME3 
C47*ESPACI03" 

200 POKE V+2,55:POKE V+4,54: 
POKE V+16,EC1) :P0KE V,E 
(3):P0KE V+3, 209: POKE 
V+5,71 

210 POKE V+1,EC2> 

220 POKE 251 ,E(4) :P0KE 252, 
E(5) :P0KE 254, E(1) 



SO INPUT 



230 FOR 1=1 TO S:GET AS: 
NEXT I 

240 GET AS: IF A$<>" "THEN 
240 

245 REM ACCION 
250 SYS 49204 

255 REM SONIDO DE FALTA Y 

PUNTUACION 
260 FOR 1=1 TO 30: POKE 54283 

,17:NEXT I: POKE 54283,0 
270 T=PEEK(253) :IF T=70 THEN 

C1=C1+1 :PRINT"CCLR/HORE]" 

;TABC10) C1 :GOTO 280 
272 IF T=41 THEN C2=C2+1 : 

PRINT"CCLR/H0ME3";TAB 

C30)C2:G0T0 280 
274 IN=PEEK<251) :IF IN=5 

THEN C2-C2+1 : PRINT" 

CCLR/HOMEI!";TAB(30)C2: 

GOTO 280 
276 IF IN=251 THEN CI =€1+1: 

PRINT"LCLR/H0ME3"; 

TABC10)C1 
280 IF C1=11 OR C2=11 THEN 



PRINT"[CLR/H0ME3"TABC19) 

"FIN'*:G0SUB 760 
290 M=C1 + C2 : IF M/5=INTCM/5) 

THEN GOSUB 740 
300 GOTO 200 
310 WAIT 197,191 
320 GOTO 190 
325 REM CODIGO MAQUINA 
360 DATA 160,0,200,192,0,208 

,251,202,224,0,208,246 
370 DATA 169,0,141,4,212 
380 DATA 165,197,201,56,208, 

1,96 

390 DATA 173,1,220,201,251, 
208,16 

400 DATA 173,3,208,201,50, 

240,9,206,3,208,206,3, 

208,206,3,208 
410 DATA 173,1,220,201,223, 

208,16,173,3,208,201 ,230 
420 DATA 240,9,238,3,208,238 

,3,208,238,3,208 
430 DATA 165,197,201,54,208, 

16,173 



440 DATA 5,208,201,50,240,9, 
206,5,208,206,5,208,206, 
5,208 

450 DATA 165,197,201,7,208, 
16 

460 DATA 173,5,208,201,230, 
240,9 

470 DATA 238,5,208,238,5,208 

,238,5,208 
480 DATA 173,30,208,201,3, 

208,36 

490 DATA 173,1,220,201,251, 
208,5 

500 DATA 169,255,32,0,204, 

173,1,220 
510 DATA 201,223,208,5,169,1 

,32,0,204 
520 DATA 173,1,220,201,255, 

208,5,169,0,32,0,204 
530 DATA 201,5,208,33 
540 DATA 165,197,201,54,208, 

5,169,255 
550 DATA 32,0,204,165,197, 

201 ,7 



INPUT 51 



560 DATA 208,5,169,1,32,0, 

204,165,197,201 ,64,208,5 

,169,0,32,0,204 
570 DATA 165,251,24,109,0, 

208,133,253 
580 DATA 201,0,208,7,173,16, 

208,73,1 
590 DATA 133,254,165,252,24, 

109,1,208 
600 DATA 201,46,240,52,201, 

45,240,48 
610 DATA 201,44,240,44,201, 

43,240,40 
620 DATA 201,250,240,36,201, 

251 ,240,32 
630 DATA 201,252,240,28,201, 

253,240,24 
640 DATA 141,1,208 
650 DATA 165,253,201,70,240, 

15 

660 DATA 201 ,41 ,240,11,141, 
0,208 

670 DATA 165,254,141,16,208, 

76,52,192 
680 DATA 96,-1 
690 DATA 24 

700 DATA 101,252,133,252,169 
,129 

710 DATA 141,4,212,165,251, 
201,5 

720 DATA 208,5,169,251,133, 
251,96 

730 DATA 169,5,133,251,169, 

0,96,-1 
735 REM CAMBIO DE SAQUE 
740 F0RI=1T05:N=E(I):E(I)=R 



(I):R(I)=N:NEXT I 
750 RETURN 

755 REM FORNiACION DE LA 

PANTALLA 
760 FOR 1=1 TO 1000: NEXT I: 

C1=0;C2=0:GOTO 310 
770 POKE 53280,0: POKE 53281, 

15 

780 FOR 1=55420 TO 56140 
STEP 40 

790 FOR J=0 TO 31: POKE I+J,5 

:POKE I-54272+J,160 
800 NEXT J, I 

810 FOR 1=1508 TO 1539: POKE 
I,192:NEXT I:FOR 1=1521 
TO 1526: POKE 1,160: 
NEXT I 

820 POKE 55355,5: POKE 55395, 
5 .-POKE 56195, 5:P0KE 
56235,5 

830 POKE 1083 ,103: POKE 1123, 
103: POKE 1923 ,103: POKE 
1963,103 

840 FOR 1=1163 TO 1883 STEP 
40: POKE 1,231 :NEXT I 

850 RETURN 

855 REM NIVEL/INSTRUCCIONES 
860 INPUT" CSH I FT+CLR/ HOME] 
NIVEL DE JUEGO (1 A 5)"; 

D 

870 IF D<1 OR D>5 THEN 860 
880 D=ABS(5-D)*2+ 8 
890 POKE 49204,162: POKE 

49205, D 
900 PRINT"tSHIFT+ CLR/ HOMED 

CCRSR abaj oDRAQUETA 



DERECHA: C A D Y CCRSR 

ABAJOD" 
910 PRINT ,( CCRSR abajoD 

RAQUETA IZQUIERDA: 

CCTRLD Y COD" 
920 PRINT"CCRSR abaj oD SAQUE: 

CESPACIOD" 
930 WAIT 197,191 
940 RETURN 

RUTINA EN CODIGO MAQUINA 
DESENS AMBLADA 

DIR. CODIGO NEMONICOS 
HEXADEC 



,C034 


A2 


10 




LDX 


#$10 


,C036 


AO 


00 




LDY 


#$00 


,C038 


C8 






INY 




,C039 


CO 


00 




CPY 


#$00 


,C03B 


DO 


FB 




BNE 


$C038 


,C03D 


CA 






DEX 




,C03E 


EO 


00 




CPX 


#$00 


,C040 


DO 


F6 




BNE 


$C038 


,C042 


A9 


00 




LDA 


#$00 


,C044 


8D 


04 


D4 


STA 


$D404 
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A5 


C5 




LDA 


$C5 


,C049 


C9 


38 




CMP 


#$38 


,C04B 


DO 
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$C04E 
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60 
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01 
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LDA 


$DC01 


,C051 


C9 
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CMP 


#$FB 


,C053 


DO 


10 




BNE 


SC065 


,C055 


AD 


03 


DO 


LDA 


$D003 



TRANSTAPE 6.90Q 

commodore 




U 



u u 



UJ 

a 
< 

m 
z 

<' 

DC 



I 

z 



PTS 
IVA INCLUIDO 

LA INTERFACE DE MAS ALTA EF1CACIA PARA HACER COPIAS DE SEGURIDAD 
DE TUS PROGRAMAS A CASSETTE Y DISCO, EN UNA SOLA OPERACION. 

— No necesitaras la interface TRANSTAPE para funcionar las programas. 

— 2 modos de copia a cassette en TURBO. 

— Copias a Disco 1541-1571 en alta velocidad. 

— ACELERADOR DE CARGA en disco para cualquier programa comercial. 

— RESET de doble funcion. 

— SOWFARE EN EPRON INTERCAMBIARLE para futuras ampliaciones. 

— 6 MESES de garantia. 

— Desarrollada y fabricada en Espana por HARD MICRO especialistas en interfaces de trasferencia de programas. 



OTRAS OFERTAS •« 



DATA CASSETTE 
PADDLES 



DISQUET 5 1 / 4 - 



.4.500 ptas. 
— 800 ptas. 
_290 ptas. 



HM 

HARD MICRO 



ATEN DEMOS PEDIDOS POR 
TELEFONO CARTA A: 

C! Consejo de Ciento, 345 Bajos 8 
Barcelona 08007 Tel. (93) 216 01 99 
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EE 


05 


DO 


INC 


SD005 


,C0F5 


20 


00 


CC 
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A5 


FE 
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EE 
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DO 


INC 
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A5 
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LDA 
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,C1 43 


8D 


10 


DO 


STA 
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AD 


1E 


DO 
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CO 
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DO 
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STA 
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LOS MEJORES 

DE INPUT 
COMMODORE 



PUESTO TITULO PORCENTAJE 

1° Commando 18,2 % 

2° Green Beret 17,5% 

3° Rambo 13,2% 

4° Sky fox 13,1 % 

5 ° Dragon's Lair 10,2% 

6.° Hardball 5,9% 

7. Saucer Attack 11 5,8% 

8° Uridium 5,8% 

9° Saboteur 5,2% 

10.° Kung Fu Master 5,1 % 



100 % 



Para la confeccion de esta relacion unicamente se 
han tenicio en cuenta las votaciones enviadas por 
nuestros lectores de acuerdo con la seccion «Los 
Mejores de lnput». 

Diciembre de 1 986. 




DATA BECKER 



10 

11 

12 
13 

n 

15 
16 
17 

18 
19 
20 
21 

22 



COMMODORE 64 

El manual del cassette para el C-64 y VIC-20 

El libro de ideas para el C~64 

C-64 consejos y trucos I 

Peeks y Pokes para el C-64 

Oiccionario para su C-64 

Lenguaje maquina para el C-64 

Lenguaje maquina para avanzados para el C-64 

C-64 interno 

Graficos para el C-64 

C-64 en el campo de la ciencia y la tecnica 
Marttenimiento y reparacion del floppy 1541 
El manual escolar para el C-64 
Robotica para su C-64 
Todo sobre el floppy 1541 
El ensamblador 

Introduccion a la inteligencia artificial 

Todo sobre bases de datos y gestion de ficheros 

Todo sobre impresoras CBM 64-128 

C-64 consejos y trucos II 

El libro de estadisticas para el C-64 

El Commodore 64 como traductor 

C-64 rutinas del sistema 




COMMODORE 128 

101 Todo sobre el nuevo C-128 

102 C-128 consejos y trucos 

103 C-128 interno 

104 C-128 Peeks y Pokes 

105 C-128 para principiantes 

106 El gran libro BASIC C-128 

* 107 CP/M para Commodore 128 

* 108 Todo sobre el floppy 1571/1570 

COMMODORE AMIGA 

* 201 AMIGA para principiantes 

COMMODORE C-16 
301 C-16 para principiantes 



1.696 

1.696 

2.968 

1.696 

2.968 

2-332 

2.332 

4.028 

2.332 

2.968 

2.968 

2.968 

2.968 

3.392 

2.332 

2.968 

2.332 

2.968 

2.332 

2.968 

2-332 

2.332 



2.332 
2.968 
4.240 
1.908 
1.908 
2.544 
3.392 
4.876 



4.134 
1.696 



SOFTWARE COMMODORE 



COMMODORE 64 




100O1 TEXT0MAT 


6.552 


10002 PR0EIMAI 


6.552 


10003 ADA 


13.104 


10004 ELECTRQMAT 


4.592 


10005 PLATINE 64 


33.600 



AMSTRAD CPC 

1001 El manual escolar CPC 464/6128 

1002 CPC 464/6128 consejos y trucos I 

1003 Peeks y Pokes CPC 464/6128 

1004 El lenguaje maquina para CPC 464, 664, 6128 

1005 CP/M el libro de ejercicios para el CPC 

1006 El libro de ideas para CPC 464, 664, 6128 

1007 CPC 6128 para principiantes 

1008 CPC consejos y trucos II 

1009 El gran libro del floppy CPC 664/6128 

AMSTRAD PCW 
* 1101 PCW 8256 para principiantes 

MSX 

2001 MSX programas y utilidades 

2002 MSX graficos y sonido 

2003 El manual escolar MSX 

2004 MSX lenguaje maquina 

2005 MSX consejos y trucos 

2006 MSX para principiantes 

ZX SPECTRUM 

3001 ZX Spectrum consejos y trucos 

3002 O manual escolar ZX Spectrum 

ATARI 600XL/800XL/150XE 
; 001 Aventuras y como se programa en el ATARI 
■002 Manual escolar para ATARI 600XL/800XL/10XE 

4003 Peeks y Pokes para ATARI 600XL/800XL/130XE 

4004 Juegos y estrategias y como se programa 

ATARI ST 

4101 ATARI ST Peeks y Pokes 

4102 ATARI ST consejos y trucos 

4103 ATARI ST para principiantes 

4104 ATARI ST aplicaciones graficas 

GENERALES 
6001 Todo sobre el procesador Z-80 

6201 Metodologia de la programacion 

6202 Metodologia y practices LOGO 

6203 Practices BASIC I 



COMMODORE 128 
10101 BASIC 128 



Procesador de textos con juego de caracteres castellano y Catalan 
Monitor y macroensamblador. 
Un potente lenguaje de programacion. 
Disefiador de esquemas de circuitos. 
Disenador de circuitos impresos con trazo automatico. 



6.552 Compilador basic optimizado. 



2.332 
2.332 
1.696 
2.332 
2.968 
2.332 
1.908 
2.544 
2.968 



2-332 



2.332 
2.968 
2.968 
2.332 
2.332 
1.908 



2.332 
2.332 



2.332 
2.968 
2.332 
1.696 



1.908 
2.968 
2.544 
*2.544 



4.028 
2.332 
2.650 

2.332 



l.V.A. Y FORTES INCLUIOOS EN EL PRECIO 

SOLICIT! FOLLETO INFORMATIVC 

DATA BECKER 

Ferre Mo ret S.A. c/. Ccircega, 299 - 08008 BARCELONA 
Telfs.: (93) 217 62 38 - 217 69 01 - 218 02 93 




r^visladeSoftwareJ 



STRIKE FORCE HARRIER 



El Harrier es un avi6n de 
combate capaz de realizar 
vuelo estacionario. Quizas 
recordeis la noticia del 
aterrizaje forzoso de uno 
sobre sobre un barco en 
alta mar el affo pasado. Sus 
caracteristicas tecnicas 
resultan 

extraordinariamente utiles 
en el combate aereo, maxime 
que puede realizar fuertes 
desaceleraciones. 
rike Force Harrier respeta 
la realidad hasta sus 
ultimos detalles, siendo 
tanto juego de f arcadia' 
como estrategia. De hecho 
los britanicos lo utilizan 
en tres variantes: la 
primer a se destina a vuelo s 
de reconocimiento, la 
segunda como apoyo de 
tropas y, por ultimo, es 
utilizado por la marina 
como apoyo tactico en 
operaciones anflbias. Este 
programa contempla los tres 
aspectos . 

Puedes desarrollar un juego 
de estrategia pura sobre un 
terreno muy amplio, que 
oculta 3-500 misiles 
enemigos . 

El panel de instrumentos es 
el mas completo que 
conocemos hasta la fecha, 
dotando al juego de un alto 
grado de realismo . Al igual 
que en los modernlsimos 
aviones de combate, la 
informaci6n relevante 
aparece visualizada en la 
cabina. Asl pueden 
conocerse los datos mas 
utiles: velocidad vertical, 
velocidad del viento, 
brujula... .Otro 
instrumento, llamado 
'gunsight', representa el 
angulo que toma el avi6n 
con respecto al horizonte 



DATOS GENERALES 
TTTULO Strike Force Harrier 
FABRICANTE Mirrorsoft 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

, Simulador de vuelo 

CALIFICACION (Sobre 10 ptos i 



ORIGINAUDAD 9 

INTERES 10 

GRAFICOS 9 

COLOR 9 

SONIDO 8 

TOTAL 45 



artificial . 

En la parte inferior de la 
pantalla, una ventana va 
indicando los fallos de 
pilotaje cometes: "Vuelas 
demasiado bajo" y "Vas 
demasiado lento" son los 
mas repetidos. 
Otro indicador, llamado 
'foftrac 1 , te muestra un 
area de 1 2 millas por 6 , 
detectando en pantalla los 
lugares donde se encuentran 



Supercycle es un juego de 
competicion sobre dos 
ruedas . Recuerda mucho al 
programa de competicidn 
automovillstica Pitstop II, 
no en vano es del mismo 
fabricante , Epyx . 
Sentado en tu silla puedes 




ubicados los misiles S.A.M, 
los tanques, las pistas de 
aterrizaje, los aviones 
enemigos, etc . . . 
Este juego de Mirrorsoft es 
sin duda uno de los mejores 
simuladores conocidos hasta 
la fecha. En el manual de 
instrucciones vienen 
detalladas una serie de 
maniobras que pueden 
salvarte el pellejo.en 
ocasiones criticas. 



seleccionar el color de la 
raoto y tu cazadora. 
DespuAs de elegir el grado 
de dificultad, te 
encuentras en la linea de 
salida con un motorista en 
cada uno de tus f lancos . El 
juez se apresta a dar la 



★★★★★★★★★★★★★★★★★★★★★★★ 

MOTOS 

DE COMPETICION 



56 INPUT 



Ordena tus propias ideas 



Le sacaras partido a tu ordenador 




PROGRAMACION AVANZADA 
DEL COMMODORE 64 

Ampliation del BASIC y rutinas 
graficas 

John P. Gibbons 
1802 ptas. 



EL LffiRO GIGANTE DE LOS 
JIJEGOS PARA COMMODORE 

64/128 
Gregg Barnett 
1.484 ptas. 



SISTEMASEXPERTOS 

Introduction al diserlo 
y aplicaciones 
Tim Hartnell 
2.120 ptas. 



SIMULACIONES 

Replica la realidad 
con tu ordenador 
Tim Hartnell 
1.643 ptas 




CODIGOSYCLAVES 
SECRETAS 

Criptografia en Basic 
Gareth Greenwood 
1.378 ptas. 



EL SUPERLIBRO DE LOS 
JUEGOS PARA ORDENADOR 

Tim Hartnell 
2.120 ptas. 



INTELIGENCIA ARTIFICIAL 

Conceptos y programas 
Tim Hartnell 

1.484 ptas. 



□ Les ruego me envien el catalogo de su editorial. 

□ Les ruego me envien los siguientes tftulos: 



1 



COMET AS EN TU MICRO: 
ELHALLEY 

Calculos de orbitas y parametros 
de cometas en Basic 
F. Galende, A. Sanchez, 
M. Alfaraz y J. A, Sanchez 
583 ptas. 



I'OTAL 



ANAYA 



□ Ad junto talon banc an o a 

GRUPO DISTRIBU1DOR EDITORIAL S. A. 

□ Pagarc contrarrembolso (+ 140 pesetas de gasto de envib) 

N ombre 

Profesion 

Direction 

C P. Loealidad 
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IMULTIMEDIAI 



Adquieralos en su libreria habitual. 

Si no le es posible o desea que le enviemos nuestro catalogo, envi'e este cupon a: 
Apdo, de Correos 14632, Ref. D. de C. 28080 MADRID 
Comercializa: GRUPO DISTRIBUTOR EDITORIAL. 



Provincia 
IC 





salida. 

Presionas el bot6n de 
disparo del joystick para 
decidir la salida. A partlr 
de ahora puedes utilizar 
las tres marchas de la moto 
para ganar velocidad o 
reducirla. 

La moto se inclina con gran 

realismo cuando tomas las 

peligrosas curvas. 

Si realizas las vueltas por 

debajo del tiempo 

pre stable cido , obtendras 



DAT OS GENERALES 


TfTULO Super cycle 




FABRECANTE Epyx 




ORDENADOR Commodore 64 




TEMA DEL PROGRAMA 




Carre ras de motos 








CALIFICACION (Sobre 10 ptos.) 


0RIG1NAUDAD 


7 


INTERES 


8 


GRAFICOS 


9 


COLOR 


9 


SONIDO 


8 


TOTAL 


41 



bonif icaciones . 

El program a da muestras de 

haber sido desarrollado con 





toda meticulosidad , siendo 
tan adictivo como todos los 
de su clase . 



★ ★★★★★★★★★★★★★★★★★★-A-*** 



TU OTRO YO 

Seguro que alguna vez has 
pensado que podrias vivir 
otra existencia. Peor, para 
eso deberias ser otro, 
tener otras ilusiones y 
afanes en la vida, dejando 
a un lado tus miedos y 
f rustraciones . Pero eso es 




DATOS GENERALES 
TTTULO Alter Ego 
FABRICANTE Actvision 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Simulation de la vida 



CALIFICACION iSobre 10 ptos.) 


ORIGINAUDAD 


10 


INTERES 


9 


GRAFICOS 


8 


COLOR 


7 


SONIDO 


no lo necesita 


TOTAL 


34 sobre 40 



infancia, nifiez, 
adolescencia, pubertad , 
madurez y vejez. Esto te 
obliga a seguir un 
determinado curso, no 
pudiendo sal tar de una a 
otra voluntariamente . 
En cada una puedes tomar 
decisiones, en funcion de 
las opciones que se te van 
presentando. De todas 




tan dif icil . 

Alter Ego es un raagnifieo 
programa que te permite 



seguir una nueva vida a 
traves de las siete etapas 
clave: nacimiento e 



formas, el juego puede dar 
comienzo en la etapa que 
mas gustes . 
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i^isfade Software 



Al comienzo del juego 
puedes seleccionar un 
perfil de personalidad 
determinado. Para ello 
basta con responder 
afirmativa o negativamente 
a las preguntas de un 
cuestionario . No en vano 
Alter Ego ha sido 
desarrollado por un 
prestigioso sic61ogo, quien 
ademas ha previsto 
versiones para varones y 
feminas con distintas 
esperiencias para cada uno. 
El mane jo del programa en 
si es lo mas parecido a un 
juego conversacional , que 



te propone sltuaciones y te 
pide una respuesta 
partiendo de alternativas . 
Mediante los iconos que van 
desplazandose por la 
pantalla, a medida que 
mueves el joystick, puedes 
examinar problemas, 
opciones y circunstancias . 
Aqui estan presentes 
cuestiones sociales, 
emocionales, intelectuales , 
vocaeionales, familiares, 
etc... En definitiva, 
puedes fabricarte una nueva 
vida con distintas metas e 
ilusiones (problemas 
tambien), e ir ganando o 



perdiendo puntos en una 
serie de facetas del ser 
humano. 

El programa viene grabado 
en tres diskettes. La mayor 
limitacidn la representa el 
hecho de ser un programa 
escrito integramente en 
ingles, aunque es una 
excelente herramienta para 
refrescar nuestros 
conocimientos del idioma . 
A algo tan realista no 
puede llamarsele juego. Te 
puede mantener horas 
sentado ante el monitor sin 
darte cuenta del transcurso 
del tiempo. 



EL IMINJA 

Lo de menos es el objetivo 
del luchador, en este caso 
rescatar a la princesa 
Di-Di, "Perla del Oriente". 




Lo mas importante es el 
realismo de los mamporros 
que te permite dar el 
joystick a los malvados de 
turno . 

Debes introducirte en el 
Palacio de las Perlas. 
Tambien has de recoger los 
idolos que la bella ha ido 
dejando caer. 

Siguiendo el camino trazado 
por Fist II, Ninja 
demuestra ser un buen juego 
a precio asequible. Tal 



como viene demostrando su 
fabricante, Master tronic . 
Tambien este juego 
incorpora peligrosas armas 



■ DAT OS GENERALES 
I TTTULO Ninja 
I FABRICANTE Mastertronic 
ORDENADOR Commodore 64 

i TEMA DEL PROGRAMA 

ni Artes marciales 



CALIFICACION iSob-e 10 ptos.) 


ORIGINAUDAD 


7 


INHERES 


9 


GRAFICOS 


8 


COLOR 


8 


SONIDO 


7 


TOTAL 


39 



blancas para tu mayor 
gloria. Dispones de una 



autentica espada de 
samurai, una peligrosa daga 
y las arrojadizas estrellas 
voladoras de filo mortal. 
El surtido de patadas y 
pufietazos es bastante 
amplio, para disfrutar del 




juego y resolverlo con buen 
fin. 



★★★★★★★★★★★★★★★★★★★★★★★ 
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"sladeSoftware 



EL GUERRERO DE CAME LOT 



Ten cuidado, caballero 
andante, si osas traspasar 
la barrera que da paso a 
los peligros y aventuras de 
este juego. 

En Camelot las fuerzas 
malignas han hecho aparecer 
euatro elementos de nuestra 
era, el siglo XX. Estos 
elementos se conocen en 
Camelot como la Voz de Otro 



ML- 9im*\ 





Mundo, el Espejo de la 
Sabiduria, el Elixir de la 
Vida y el Fuego que No 
Quema. Son elementos 
misteriosos que estan 
perturbando el equilibrio 
de los Fuerzas Magicas y es 
tu misidn de caballero 



OAT OS GENERALES 

TITULO Camelot Warriors 
FABRICANTE Dinamic 
ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Juego de habilidad 



CALIFICACION (Sobre 10 ptos.i 


ORIGINAUDAD 


9 


1 UTERES 


8 


GRAFKOS 


9 


COLOR 


8 


SONIDO 


7 


TOTAL 


41 



Jl 



andante entregarselas a los 
guardianes de cada mundo 
para su de s truce i6n. 
Pero, para eso, tienes que 
enfrentarte con los 
peligros de cuatro mundos 
distintos: el Bosque, donde 
vive Aznathel druida, el 
Lago, morada de Kindo 
hermano de Neptuno el rey 
del lago, las terrible s 
Grutas, donde habita el 
dragon Azornie , sefior de 
los mundos subterrineos y, 
por ultimo, , el castillo de 
Camelot y la Corte del rey 
Arturo . Alii se encuentra 
la solucidn final . 
Ten por seguro que con 
Camelot Warriors tenemos 



mucho rato de diversion 
asegurada. Loe efectos 
graficos son excelentes, la 
dificultad va en aumento y 
el movimiento del personaje 
tiene bastante gracia. 
Los mundos que comprenden 
la aventura incorporan 
llamativas plantas, 
elementos y peligros 
insospechados . La espada y 







■ . 1 




• 




m 

,.. :s V:,„ 








los brincos q ue pega el 
caballero son las 
principales bazas para 
abrirte camino a lo largo 
de ... muchas , muchas 
pantallas diferentes. 

* * if. ~k irir ic ic * it 



EL HUMANOIDE Y EL BEBE 



Sumido en un alucinante 
mundo de horrores 
genAticos, vive un bebe 



llamado Nejo, que precisa 
de los cuidados necesarlos 
para sobrevivir. 



Un hombre sintetico, Solo, 
debe proporcionarle la 
leche que sirve para su 
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ESTRENO MUNDIAL 



THE FINAL CARTRIDGE 2 

EL PRIMER SISTEMA OPERATIVO EXTERNO 
PARA EL CBM 64 

AHORA, CON FREEZER COMPLETO 

(Puede cargar sus backups sin el cartucho) 

Este sistema operativo construido en un cartucho no utiliza memo- 
ria alguna y esta siempre presente. Compatible con 99% 

de los programas. 



INCORPORA 



TURBO DISCO: Carga 6 veces mas 
rapido -salva 6 veces mas rapido - No 
Borra la pantalla. 

TURBO CINTA: 1 veces mas rapido, 
incluso con ficheros. Utiliza los coman- 
dos normales del Commodore (Load- 
Save-lriput7r,..,) 

INTERFACE CENTRONICS: Permite uti- 
lizar las impresoras de tipo paralelo. 
Imprime los graficos Commodore y los 
codigos de control, 
(Importante para los listados). 

VOLCADOS DE PANTALLA: De alta 
revolucion y texto. 1 pagina de ancho. 
1 2 tonos grises, copia pantallas de jue- 
gos o de programas como Doodle, 
Koala Pad, Print Shop, etc, Busca auto- 
maticamente la direccion en memoria. 

Funciona con impresoras Commo- 
dore y Centronics. 

24 K. MAS DESDE EL BASIC: 2 nuevps 
comandos, 1 "memory write" y "memory 
read" mueven 192 bytes muy rapida- 
mente en cualquier sitio de los 64 RAM 
del CBM 64. Se pueden usar con cade- 
nas variables. 

COMANDOS DEL BASIC 4.0: Como 
dioad, dsave, dappend, catalog, etc. 

TECLAS DE FUNCION TELEPROGRA 
MADAS: Run, load, save, catalog, 
comandos de disco, list (quita las pro- 
tecciones contra el listado de los pro- 
gramas en BASIC). 

MONITOR DE CODIGO MAQUINA: 

Scroll hacia arriba y abajo 
Bankswitching (para leer y escribir 
debajo de las ROOMS), etc... No reside 
en memona. Se puede llamar en cual- 
quier momento con cualquier programa 
en memoria 

RESET: Resetea todos los programas. 

TRAINING MODE: Para cancelar la 
deteccion de colision de sprites 
podras ir hasta el final de los juegos 
sin que te maten los bichos malos. 



+ 



SUPER FREEZER 




Ejemplo de volcado de pantalla. 



jHasta el precio 

es increi'ble! 




Pulsando el boton del FREEZER, to- 
mara el control de su ordenador, "con- 
gelando" el programa en memoria. Con 
la ayuda de un menu muy comodo 
podra: 

— Hacer VOLCADOS DE PANTALLA, 
alta o baja resolucion (por ejemplo las 
pantallas de sus juegos prgferidos). 
Podra "congelar" cualquier programa 
en el momento que desee. y volcar la 
pantalla sobre el papel. 
— Hacer COPIAS DE SEGURIDAD de 
sus programas. El FREEZER le permi- 
tira, con programas protegidos o no, 
cualquiera que sea el sistema de carga 
utilizado (turbo, verificacion de errores, 
entre pistas ). 

• Hacer copias de cinta a cinta 

• Hacer copias de cinta a disco 

• Hacer copias de disco a cinta 

• Hacer copias de disco a disco 
solo pulsando una lecla. El proceso de 
copia es totalmente automatico. y no 
necesita tener ningun conocimiento de 
programacion. La copia facilitada por el 
FREEZER consta solo d.e dos partes (un 
cargador y el programa propiamente 
dicho) y se puede cargar. 
INDEPENDIENTEMENTE DEL CAR- 
TUCHO (a velocidad turbo), EL 
FREEZER de THE FINAL CARTRID- 
GE 2 es mas comodo y mas rapido 
que los productos especializados 
ingleses o americanos probados has- 
ta ahora. 



ATENCION: Las copias consegui- 
das con THE FINAL CARTRIGE 2 
son exclusivamente para uso pro- 
pio. 



NO EXISTE NINGUN PRODUCTO 
COMPARABLE PARA SU C64; Encon- 
trara qulzas algun FREEZER {con otro 
nombre) ingles o amencano. pero ade- 
mas de ser mas caro sera solo un 
FREEZER. 

THE FINAL CARTRIDGE 2 da mucho 
mas, por mer.os. 



DISPONIBLE EN LAS MEJORES TIENDAS O DIRECTAMENTE POR CORREO O TELEFONO 



^jsg^^ IMPORTAOOR EXCLUSIVO 

&) HBROT.SA 

C Coso. 87-6 ? A-Telf (975) 39 99 61-50001 ZARAGOZA 



Condiciones 
especiales para 
distribuidores \ 



copyrigirt and regisie'eO tnaematu H&P co<np U ier» 
Wolohaertsbochi 236 30B3 WIV flonerdarr, Neinenarrds ft 



01031 10231982 



gJislodeSoftwd 



alimentacidn. Tambien debe 
introducir datos en el 
ordenador cuando pueda, 
para desestabilizar el 
sistema de seguridad y 
poner al be be en un lugar 
seguro . 




Existen cuatro zonas y se 
puede pasar de una a otra 
mediante el Teleport . 
El mundo en que se 
desarrolla el juego es de 
pesadilla. For el deambulan 
seres horribles, resultado 
de experiment os geneticos 
desastrosos. Un ordenador 
es qui en realiza 
experimentos tedricos en 




torno al desarrollo de 
nuevas formas de vida 
inteligente . 
A traves de un monitor 
aparece la visual izacidn 
tridimensional de la zona 
por la que se desplaza 



DATOS GENERALES 

TTTULO Prodigy 

FABRIC ANTE Electric Dreams 

ORDENADOR Commodore 64 

TEMA DEL PROGRAMA 

Ciencia fiction 



CALIFICACION (Sobre 10 ptos 



ORIGINAUDAD 

INTERES 

GRAflCOS 

COLOR 

SONIDO 



TOTAL 



42 



Solo. A su alrededor hay 
cuatro indicadores del 
sistema de seguridad , que 
son cubos rotatorios. Hay 
que vigilarlos con ouidado . 
En la parte superior de la 
pantalla estan los 
indicadores de la fuente 
suministradora de oxigeno , 
el alimento de Nejo y los 



panSles que mantendran 
limpio al be be. 
Observandolos podras 
conocer las necesidades del 
momento . En la base de la 
pantalla se suceden 
mensajes que te iran 




orientando sobre las 
acciones a tomar. 
El juego es intrigante y 
guarda muehas sorpresas que 
deberas ir descubriendo . La 
historia de un tierno bebe 
y un curtido humanoide es 
realmente original , y exige 
estar bien despierto para 
jugarla con exito. 




★★★★★★★★★★★★★★★★★★★★★★★ 



\T€ VCH A COLOCAR UAJA dmrti. 
TORC^ApA VIA 5fAj_r~~ 



CH'CO. IBUOAJCEAT& 3A30 £ 
TS©G? PC 



MOSC QUE mMIS PROFtS Sf_ 

NO -HOBIERA^ 

\jiDEojumysl 
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RITEiWI: news 



DACdrnon 



REPRESENTACION EN 
ESP ANA DE: 



=HT=kWi 



PROVENZA, 385-387 
TEL. (93) 207 24 99* 



TELEX 97791 
08025 BARCELONA 



IMPRESORA PARA SU COMMODORE 



(optima relacion precio/prestaciones) 



-Cabezal 9 agujas 
-Doble operatividad 
-Cinta autoretintada 
-Tampon retintable 
-Ausencia de rodillo 
-No dobta el papet 
-Elevadores inferiores 
-Admite texto rigido 
-Maximos tipos de escritura 



■Part ( ;g j 



Modelo SUPER C+, 120 cps, 
NLQ, ASCII y COMMODORE 



• Conexion directa a Commodore 
(cable incl.) Traccion y friccion 




LA IMPRESORA PARA COMMODORE, ASCII Y PC'S COMPATIBLES 

(Maxima versatilidad/precio ajustado) 




RITEMAN 10-C 

—140 cps, traccion y friccion 

— Paralelo centronics/Commodore serie DIN 

— Tablas ASCII y PC en Rom interna 

-Tabla 100% Commodore y 8K RAM en modulo 

—Interface Commodore exterior inclttido 

— RS 232-C opcional 



NOTA: Para Aplicaciones en las que se necesite mas velocidad, o mayor tamano de carro, tambien 
pueden aplicarse nuestros interfaces externos a los modelos RITEMAN 10/11 y RITEMAN 15. 



Commodore es marca registrada de Commodore Business Machine, Inc. 




Vendo Vic 20 con joystick modelo 1311 
con algunos programas en cinta. Todo 
por 15.000 ptas. Interesados llamar o 
escribir a: 

Fco. Javier Espinar Alvarez 
Mtnez. de la Rosa 114, 3<A 
Tel. 39 79 19 
29010 Malaga 



Vendo Video-Juego Philips G-7000, con 
8 juegos (Comecocos, Baloncesto, 
Rugby, etc.) todo en perfecto estado, 
por 20.000 ptas. Mis senas son: 

Fernando Irimia Mollar 
Virgen del Lluc, 67, 3°B 
Tel. 268 12 64 
28027 Madrid 



Cambio programas en turbo o disco pa- 
ra Commodore 64. 

Antonio Valero Celada 25-0 
Alcala de Henares (Madrid) 



Vendo Vic 20, ampliacidn 16K, tarjeta 
de carga rapida, libros: guia del usua- 
rio, gui'a de referenda del programa- 
dor, curso de Basic en dos tomos. Lla- 
mar at* 

Tel. 254 80 62 por ta noche 
Madrid. 



Cambio los juegos Falcon Patrol y Pit 
Stop por cualquier otro u otros. 

Juan Manuel Aliaga Boigues 
Alcacer 32-39 
Tel. (96) 379 81 41 
Llamar de 1.30 a 2.30 
46014 Valencia 



Vendo interface para adaptar TV C3M 
64/128 o Vic 20 a cualquier cassette, por 
40.000 ptas. 

Antonio 
Tel. (93) 334 07 70 
Horas de comidas 



Com pro Commodore 64 en buen esta- 
do y precio. Dirigirse a: 



a 20co 

Jorge Llado Corominola 
Sant Joan Bosco, 38 
Tel. (972) 21 23 28 
17007 Gerona 



Vendo ordenador Commodore Vic-20 
con unidad de cinta por 25.000 ptas. In- 
teresados llamar a: 

Angel Cabello 
Tel. 63 00 07 
Badajoz 



Vendo Commodore 64, con datassette, 
variedad de revistas, programas de uti- 
lidad y de diversion, Libro de Introduc- 
cion al Basic I parte. Perfecto estado. 
Precio 40.000 ptas. 

Manolo de Luque Muntaner 
Pablo Piferrer, 15, 5°C 
Tel. 23 19 20 
Palma de Mallorca 
07011 Baleares 



Se vende ZX Interface 1 y ZX Microdri- 
ve mas 6 programas (Knight Lore, Ant 
Attack, Games Designer, etc.) por 
20.000 ptas. negociables. Llamar o es- 
cribir a: 

Jordi 
Angli, 33 
Tel. (93) 204 45 87 
08017 Barcelona 



Desearia recibir informacion sobre pro- 
gramas para C-16. Dirigirse a: 

Montserrat Carmona Molina 
San Juan Bosco, 38 
17007 Gerona 



16 years old boy seeks Spanish Spec- 
trum user for exchanging letters, male 
or female. 1 can replay in both Swedish 
or English. Please write to: 

Orjan Larsson 
Rosendal 18 C 
S-69153 Karlskoga 
Sweden (Suecia) 



Vendo Vic-20 poco usado, muchos pro- 
gramas en cinta y revistas, todo por 
15.000 ptas. 

Juan Janer Tomas 
Mayor, 173 
Tel. (971) 66 05 33 
Llucmajor (Mallorca) 
Baleares 



Tengo un C-64 y unos 60 juegos comer- 
ciales en cintas, como Pit-Stop II, 
H.E.R.O., Pole Position, Pacman, 
Hypersports, Exploding Fist, Simon's 
Basic, Paint Magic y otros y quisiera 
cambiarlos por otros como Rupert, Su- 
perzaxxon, etc. 

David 

Tel. (91) 619 53 27 
Alcorcon 



Se desea formar club de poseedores de 
Commodore 64, para el intercambio de 
programas e ideas. Solo de Malaga. 
Los interesados llamen a: 

Juan Carlos Lucas Herrero 
Tel. 30 52 55 



Intercambio todo tipo de programas 
para el Commodore 64. Poseo bastan- 
tes novedades. 

Rafael Garcia Garrido 
Zamora, 5, 3°B 
Alcorcon (Madrid) 



Vendo ordenador Commodore 64, Da- 
tassette C2N y 4 programas (Simon's 
Basic, Commando, Summer Games y 
Drop Zone) en buen estado (1 ano) con 
las cajas de embalaje e instrucciones 
por solo 38.000 ptas. con 80 programas 
y 50 revistas 45.000 ptas. Interesados 
llamar o escribir a: 

Albert Galvany Matas 
P/ Creu, 33, 3° 3° 
Tel. (93) 674 68 64 6 313 80 37 
Sant Cugat del Valles 
Barcelona 



Vendo juego Dambusters, en perfecto 
estado. Version original por 1.000 ptas. 
Dirigirse a: 

Juan Rodriguez Rubio 
Lope de Vega, 20 
13200 Manzanares 
Ciudad Real 



Atencion! ! Hemos creado un club para 
Commodore 64 y MSX solo en cinta. 
Poseemos las ultimas novedades en 
ambos ordenadores, tambien me gus- 
taria saber si alguien me puede facilitar 
el simulador de Spectrum. Llamar o es- 
cribir a: 

Santiago Javier Navarreta Lopez 
Capitan, 146, antes 58, 3°D 
Tel. (91) 891 19 04 
28300 Aranjuez (Madrid) 



Vendo ordenador C-128 completo, in- 
cluye: monitor monocromo de 80 col.; 
unidad de disco 1570; datacassette; in- 
terfaces; proceso de textos Script 128; 
libros variados y programas muy inte- 
resantes. 

Tel. (91) 715 93 54 



Cambio juegos de C-64, interesados lla- 
mar o escribir a: 

Francisco Javier Gonzalez Prieto 
Luis Vives, 9, 1°B 
Alcala de Henares (Madrid) 



Cambio cartucho C-64 Dragonsden por 
cualquier otro. 

Fernado Morago 
Efigenia, 13 
28032 Madrid 
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DISTRIBUIDOR 

OFICIAL 

COMMODORE 




ORDENADORES 
PERIFERICOS 
SOFTWARE 



AMIGA 

UNIDAD CENTRAL, TECLADO 
MONITOR 



299.000 ptas. 



COMMODORE 128 
COMMODORE 64 



COMMODORE 64 C + CASSETTE 

UNIDAD DE DISCO 1541 C 

UNIDAD DE DISCO 1571 

IMPRESORA STAR NL 10 



IMPRESORA SEIKOSHA SP 1000 VC 
IMPRESORA CITIZEN 120 D 



64.90® pim, 
39.900 ptas. 
46.900 ptas. 
49.900 ptas. 
69.900 ptas. 
79.900 ptas. 
57.500 ptas. 
67.975 ptas. 



tu 



dad 



)tnP r ° 




DC S° 
los cost* 5 



diBtmn^de Madrid se les 



la 



Jrid 

vez :i no tengan mas 



AC CESOBlOS 



CINTA MPS 801 

TAPA ARATIBLE 
FUENTE ALIMENTACION C 64 
TALADRO DISCO 



DISCOS SSDD 10 C/CARTON 

DISCOS DSDD 10 C/CARTON 

DISCOS DSDD NASSUA 10 ARCHIVADOR 
DISKETERA METALICA NASSUA 100 U 

CABLE CENTRONICS 

CABLE 40/80 



1.990 ptas. 
2.400 ptas. 
6.490 ptas. 
1.950 ptas. 
1.900 ptas. 
2.500 ptas. 
3.250 ptas. 
5.900 ptas. 
3.450 ptas. 
2.850 ptas. 



FINAL CARTRIDGE II 
FRE. FRAME MN 3 _ 



SINTONIZADOR MONITOR 
CASSETTE 64 



COPIADOS CAS/CAS 
QUICNSHOT II 



QUICNSHOT II PLUS. 

KONIX 

PRO 5000 



MONITOR 40/8 RGB SONIDO 
FOSFORO VERDE 



"55?* 



9.900 ptas. 
11.900 ptas. 
24.900 ptas. 

6.900 ptas. 

3.990 ptas. 

1.600 ptas. 

2.690 ptas, 

3.100 ptas. 

3.990 ptas. 

28.000 ptas. 



Calvo Asensio, 8 
28015 Madrid 
lEspana) 



Telefono 243 16 38 
Telex 273Q7 COIM-E-1 254 




Vendo o cambio por otros programas 
o juegos los siguientes cassettes: Ram- 
bo, Panorama para Matar, Dessert Fox, 
Decathlon y Super Pipeline. Tambien 
cambio muchos otros, pero de menos 
calidad: Pole Position, Jorobado, Sau- 
cer Attack...) Regatearemos el precio en 
caso de venta, 

Oscar Roijals Morcillo 
Guipuzcoa, 147, 8° 2 a 
Tel. 313 22 18 
08020 Barcelona 



Vendo C-64 en perfecto estado, con 
manuales, cassette Commodore, mas 
de 100 juegos en cinta (Commando, 
Cauldron II, etc) y varias revistas dedi- 
cadas al Commodore. Todo por 46.000 
ptas. 

Alfredo Sendm 
Lope de Vega, 8 
Tel. 884 13 00 
Daganzo (Madrid) 



Cambio los juegos para Commodore 
64, Zaxxon y Blanch Hawh por «uno» 
de estos tres programas: Summer Ga- 
mes, Skyfox o Commando. 

Javier Abad Herrero 
Alcon, 14, 5°A 
Tel. (987) 41 74 41 
. Ponferrada (Leon) 



Cambio 2 joysticks + 25 revistas + 2 li- 
bros de programacion + Interface Co- 
pidata + 700 programas (ultimos: Si- 
lent Service, Leader Board, Ghost'n 
Gobblins, etc..) con sus instrucciones 
por unidad de disco 1541 en buen es- 
tado. Tambien cambio programas. 

Benjamin Blazquez Calzada 
S. Juan Salle 63 c 8.3 
Tel. (954) 43 36 39 
41008 Sevilla 



ei zoco 

Vendo Commodore 64 en buen estado, 
incluyo datassette y joystick. Tambien 
juegos y manuales. 

Jose Ramon Garcia Cadena 
Emilio Juncadella, 36, Entl. 2 a 
Tel. (93) 371 39 70 
Esplugas de Llobregat 
Barcelona 



Atencion! Me interesarian programas 
de utilidades (graficos, musica...) o bien 
ensambladores, todo esto para CBM-64 
en cinta o disco. Tambien cambio pro- 
gramas de todo tipo por un joystick (II 
o V), 

German Galan 
Tel. (93) 335 32 32 
Hospitalet de Llobregat 
Barcelona 



Vendo cartucho Simon's Basic (6000 
ptas.); cartucho international scocer 
{2000 ptas.); cinta Kung Fu Master, 
Beach Head II, Skooldaze, Decathlon, 
Broad Street por 1200 ptas. c.u. Todo 
en perfectas condiciones, todo original 
y con sus instrucciones. 

Jose Ramon Diaz Glez 
Rfo Requejada, 2, 1 izda. 
33460 Llaranes (Aviles) 
Asturias 



i [Atencion radioaficionadosl! Se vende 
interface (de construccion casera y es- 
pecial para C-64) para transmitir y reci- 
bir en CW y RTTY mas un programa de 
los mejorcitos con instrucciones en cas- 
tellano. Todo por 30.000 ptas. Para ma- 
yor informacion llamar o escribir a: 

Fernando Guerra Diaz 
Fernandez Ferraz, 16 
Tel. 41 42 54 
Palma (Canarias) 



Vendo/Cambio todo tipo de programas 
C-64. 

Juanjo Tombas 
Abadia, 3 
Tel. (977) 84 62 36 
43460 Alcover (Tarragona) 



Intercambio programas en disco, cinta 
para el C-128. Interesados escribir a: 

Marco Rossi 
Masferrer, 14, 1° 
Tel. 330 87 80 
08028 Barcelona 



Vendo ordenador Vic-20, instrucciones 
en castellano, programas demostra- 
cion, cintas juegos y cartuchos de rega- 
le Precio a convenir. 

Tel. (93) 717 99 04 (de 8 a 12 h. y de 

15 a 19) 



Vendo Vic-20 o lo cambio por Commo- 
dore 64 abonando la diferencia. Precio 
a convenir. 

Enrique Vicente Garcia 
Poifgono Gornal Bl. 65, 4 a 3' 
Tel. 336 06 76 
Hospitalet (Barcelona) 



AMIGA. Intercambio de experiencias, 
programas y todo tipo de informacion. 
Todo tipo de cartas se contestaran. Es- 
cribir a: 

Andreu Ibanez i Perales 
P. Ronda 76, 3-1 
Lle'da 



Vendo o cambio toda ctase de progra- 
mas en CM. Poseo gran surtido de car- 
tuchos Konami, escribir a: 

Pedro J. Rodriguez Molina 
Plaza Camachos, 1, 2"B 
30002 Murcia 



- 

La redaction de Input 
os desea 

FELICES NAVIDADES 



pero lo que yo necesito,,, 
es este Commodore!! 




Y lo necesito porque es el mas 128 de todo el 
mercado.Porque es 3ordenadores en uno so- 
lo, solo con pulsar una tecla. 

Lo necesito porque es compatible con el 
C-64, y todos sus programas. 



commodore 



Lo necesito, porque ya que me decido, quie- 
ro lo mejor. 

Lo necesito , porque todavia hay un par de vi- 
deo juegos en los que me gana mi vecino 
y eso no puede ser. 




Mkroelectronka y Control , s. a. Vnico representante de Commodore en Espana. d Valencia, 49-53 08015 Barcelona - cl Ardemans, 8 28028 



